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Computer Hut Software 


Are proud to announce that we are now the 
sole Austraoliaon distributers for 


MARA DATH PRODUETS * COGNI TEC 

COMPUTER | &L AND DERRINGER SOFTWARE 
SPECTAHXL ASSOCIATES TALAD PICTURE CORP. 
TOM Mi SOFTWARE UIP TECHNOLOGIES 
SUBAHR SOFTWARE COMPUTER STORY BOOKS 


HH ME HK HE OK 


PAIEKLY PEAR SOFTWARE PICOSBFT 
SPECTAUM PAOJECTS CORSTAL COMPUTER SEAUICES 
PHL CREATIONS NOVASOFT 


OUkG& NEST SOFTWARE * COCO CASSETTE Cmonthtiy) 
We have about 300 programs With more on the wag. 
SEE YOUR LOCAL TANDY DEALER 


or send $1-00 for a full catalogue to:- 
ile accept !:- Computer Hut Software 
* BANKCARD 21,Williams Street. 
* MAGSTEREARRAD Bowen.QIid.4805. 
* ULGALARD Phone (077)86-2220 
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CHILD’S PLAY” 
EDUCATIONAL LEVEL 
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WORD PROCESSOR 










CHILD’S PLAY” 
FAMILY LEVEL 
WORD PROCESSOR 






 ADAIRUS 


WORD PROCESSING WITH 
INSTANT SPELL CHECKING 


Just $155.00 
Requires 256K T1IOQ0 


ENCOM 


AVAILABLE FROM — 2nd Floor, 20 McDougall St. EDUCATION 
OR YOUR TANDY STORE telephone: 369 8399 SOFTWARE 
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Please note that all the BASIC program 
listings you find in THE RAINBOW are 
formatted for a 32-character screen — 
so they show up just as they do on your 
CoCo screen. One easy way to check on 
the accuracy of your typing is to com- 
pare what character “goes under’ what. 
If the characters match — and your line 
endings come out the same — you have 
a pretty good way of knowing that your 
typing is accurate. 

We also have “key boxes” to show you 
the minimum system a program needs. 
But, do read the text before you start 
typing. 

Finally, the little cassette symbol on 
the table of contents and at the begin- 
ning of articles indicates that the pro- 
gram is available through our RAINBOW 
ON TAPE service. An order form for this 
service is on the insert card bound in the 
magazine. 


What’s A CoCo 


CoCo is an affectionate name that was 
first given to the Tandy Color Computer 
by its many fans, users and owners. 

However, when we use the term 
CoCo, we refer to both the Tandy Color 
Computer and the TDP System-100 
Computer. It is easier than using both of 
the “given” names throughout THE RAIN- 
BOW. 

In most cases, when a specific com- 
puter is mentioned, the application is for 
that specific computer. However, since 
the TOP System-100 and Tandy Color 
are, for all purposes, the same computer 
in a different case, these terms are 
almost always interchangeable. 


The Rainbow Check Plus 





The small box you see accompanying 
a program listing in THE RAINBOW is a 
“check sum” system, which is designed 
to help you type in programs accurately. 

Rainbow Check PLUS counts the 
number and values of characters you 
type in. You can then compare the 
number you get to those printed in THE 
RAINBOW. On longer programs, some 
benchmark lines are given. When you 
reach the end of one of those lines with 
your typing, simply check to see if the 
numbers match. 


To use Rainbow Check PLUS, type in 
the program and CSAVE it for later use, 
then type in the command RUN and press 
ENTER. Once the program has run, type 
NEW and ENTER to remove it from the area 
where the program you're typing in will 
go. 

Now, while keying ina listing from THE 
RAINBOW, whenever you press the down- 
arrow key, your CoCo gives the check 
sum based on the length and content of 
the program in memory. This is to check 
against the numbers printed in THE 
RAINBOW. If your number is different, 
check the listing carefully to be sure you 
typed in the correct BASIC program code. 
For more details on this heipfuil utility, 
refer to H. Allen Curtis’ article on Page 
21 of the February 1984 RAINBOW. 

Since Rainbow Check PLUS counts 
spaces and punctuation, be sure to type 
in the listing exactly the way it’s given in 
the magazine. 


10 CLS: X=256*PEEK (35)+178 
2@ CLEAR 25,x-1 
30 X=2S6*PEEK (35)+178 
4@ FOR 2=X TO x+77 
S@ READ Y:W=Wt+Y:PRINT 2,Y:W 
6@ POKE Z2,Y:NEXT 
70 IFW=79SBSTHENBBELSEPRINT 

“DATA ERROR”: STOP 
8@ EXEC X:END 
90 DATA 182, 1, 106, 167, 148, 68, 134 
10@ DATA 126, 183, 1, 106, 190, 1, 107 
11@ DATA 175, 148, 50, 48, 140, 4, 191 
120 DATA 1, 107, 57, 129, 10, 38, 38 
130 DATA S2, 22, 79, 158. 25, 230, 123 
14@ DATA 39, 12, 171, 128, 171. 128 
15@ DATA 230, 132, 38, 2580, 48, 1. 32 
16@ DATA 248, 182, 2. 222, 48, 140, 14 
170 DATA 159, 166, 1 
18@ DATA i@9, 173, 2 c L 
19@ DATA @, 13S, 255, 134, 4a, 55 
20@ DATA 51, 52, 4i, 2 


Using Machine Language 


Machine language programs are one 
of the features of THE RAINBOW. There are 
a number of ways to “get” these pro- 
grams into memory so you can operate 
them. 

The easiest way is by using an editor/ 
assembler, a program you can purchase 
from a number of sources. 

An editor/assembler allows you to 
enter mnemonics into your CoCo and 
then have the editor/assembler assem- 
ble them into specific instructions that 
are understood by the 6809 chip that 
controls your computer. 








you have to do, essentiai.y § topy the 
relevant instructions from ~-£=+ \s0w’s 
listing into CoCo. 

Another method of getting am assem- 
bly language listing into CoCo ':s caiiec 
“hand assembly.” As the name imp.es. 
you do the assembly by hand. This ca 
sometimes cause problems when you 
have to set up an ORIGIN statement or 
an EQUATE. In short, you have to know 
something about assembly to hand- 
assemble some programs. 

Use the following program tf you wish 
to hand-assemble machine language 
listings: 


I 


af 


“4 


"4 L 
22 TLEGR222,2-3F 3:1 =4r3F 8 
ZOPRIN”T “SCORESS: “;HEXS(1); 
3@ INPUT “BYTE” ;B$ 
43 POKE I. VAL(“&H“+BS) 
S@ l=1+1:S50TO 22 


This program assumes you have a 16K 
CoCo. If you have 32K, change the 
&H3FO@ in Line 10 to &H?F@@ and change 
the value of I to &H7F BQ. 
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This month’s mag is a potporri of utilities from 
both the USA and Australia. 
Just so the games players will feel at ease, we've 


also included a couple of games! 


There is a heap of new and very exciting software 
available this year, I hope you will take the time 
to get down to your local Tandy store and see some 
of it. 

The major supplier of third party software in 
Australia is the Computer Hut in Bowen, Qld. 

Tony from Computer Hut sent us a bundle of 
software, and this forms the basis of a fairly large 
review section in Australian CoCo this month - so if 
you are looking for something different, and there's 
plenty of different things there, have a read of 
that magazine. 


The boys and girls at Liverpool users’ group have 
been very busy of late, encouraging Leonie Duggan, 
their meet co ordinator, in her work with local 
unemployed kids. 

Leonie leads a course in computing for the young 
people of the area and so far, after just 2 years (I 
think) she reports an 85% employment rate - ie 685% 
of the kids attending, get jobs soon after they 
graduate. 

Currently Leonie is after computers for use in the 
course. As I said, the group there is already 
helping, and have supplied a number; but if you have 
an old CoCo that perhaps doesn’t go, or even an 
MC-10 that you don’t need, then how about donating 
it to a worthy cause? 

Anyone who does donate a computer this month will 
receive from us, a six month sub to CoCoOz AND fron 
The Computer Hut in Bowen, one of the new range of 
games / programs Computer Hut has just imported. 
(Thanks go to Computer Hut for donating so 
generously. ) 

Finally, CoCoConf '86 is on in August this year. 

We are presenting some 10 tutorials this year, and 
these will be lead by some of the most talented 
people in Australia. Plan to come - we'd love to see 
you. 


Go wa 


UTILITY 





DISSASSEMBLER 


by Rod Hoskinson 


(Greg Wilson's right hand man, Rod 
Hoskinson, has been busy with exams and 
courses since Greg passed away and the Mag 
moved to the Gold Coast. 

We've all missed Rod's involvement and 
so it is very nice to be able to present 
the first of two excellent articles by 
Rod. G.) 


I wrote the bulk of this program as far 
back as 1982, then it was put aside, not 
quite finished, and forgotten. The school 
holidays over the Christmas break gave me 
the spare time to dig it out, chop and 


change a little here and there, and send 
it up to Grahan. 

My interest in Machine Language 
programming on the CoCo with its great 


6809 processor inspired me to begin 
writing this dissassembler - what better 
way to learn the instruction set and 
addressing modes? 

The program as presented requires a 
minimum system of 16K ECB, however it 
could probably be modified to run ona 
standard Basic without too much trouble. 

You must POKE 25,6:NEW before CLOADing 
and RUNning. Disk users will have to make 
some changes - DELete lines 4-8, and 
delete the POKEs in line 9. (And instead 
of POKEing 25,6, POKE25, 14: NEW G.) 

The program is in BASIC and incorporates 
a machine code utility by Michael Batley 
which appeared in May 1983 Australasian 


Rainbow. 

This short utility reverses the screen 
colours and | heartily recommend it to 
anyone who wishes to keep their sight and 


still use CoCo! (Thanks Michael.) 

After a short initialisation you will be 
presented with a sign on message and the 
main menu. To select an option, simply 
press the key corresponding to the first 
letter of that option ‘(these letters are 
inversed on the screen). You can exit most 
options by simply holding the <SPACEBAR>, 
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which will return you to the menu. 

The choices are explained below: 

I. for Input, is used to input the start 
and end addresses for your disassembly. 
Hexadecimal address should be preceded by 
the '$’ sign or by &H. 

D. for Disassemble 


6809 machine code 


into assembly language. To exit before 
the end address is reached, hold the 
spacebar. 

A. for ASCII dump, is used to 
disassemble FCC tables in the machine 
code, from your start address to the end 
address. 


B. for Byte dump, is used to disassemble 
FCB tables in the machine code. 


Y. for Word dump, disassembles FDB 
tables. 
CLOADM lets you do exactly that. If you 


get an I10 error, then reRUN or type GOTO 
10. You are free to load into memory from 
$2700 up, which is close to decimal 10 
000, a nice easy number to remember. 


Therefore you should’ specify an 
appropriate offset that will load your 
program into this memory area. (For 
example if the ORG is 0, then an offset 


load by 10 000 will do the trick.) 


P, for printer, will redirect all output 
to the printer, if it is connected. 

S will switch ouput back to the screen. 
If you enter O for orange at the COLOUR? 
prompt, the screen will be that colour. 

Finally E simply ends the program. Your 
start and end locations are always given 
at the Menu, in hex. 


I have found this utility very useful in 


my assemly language programming 
endeavours. It gives you some of Z-Bug’s 
major functions at virtually no cost. I 


believe the program is bug-free (sarcastic 
Ha-Ha) it has dissassembled CoCo’s ROMs 
with no trouble. I hope this can be of 
use to some readers. 


March 1986. 


The Listing: 


1 '6809 DISASSEMBLER FOR COCO 
BY ROD HOSKINSON 
REVISION 1.1:31/1/1986 
PUBLIC DOMAIN PROGRAM. 
2 GOTO4 
3 POKE65494, 0: CSAVE" DISASSEM” : EW 
D 
4 CLSO: POKE65495, 0: CLEAR300, 9833 
5 RESTORE: M=9834: FORI=1TO3: READS 
,D: FORJ=S TOD: POKEM, PEEK (J): M=M+ 
1: NEXTJ, I 
6 DATA33395, 33413, 38316, 38350, 41 
738, 41825 
7 FORI=1T025: READM$, D$: M=VAL ("&H 
26" +M$): D=VAL (" &H" +D$) : POKEM, D: 5 
EXT 
8 DATAG6E, 0,6F, D, 9A, F, 9F, 16, F4, 16 
, F5, 32, F6, 62, F7, 39, AE, 20, BA, 20,A 
F, 8D, BO, 48, CF, 8, D2, 22, D3, 2, D4, 88 
, D5, 40, D6, 84, D7, DF, EF, 20, F9, A7,F 
A, 84, FB, A7, FC, 82, FD, 39 
9 S=0: E=0: POKE&H168, &H26: POKE&H1 
69, &H6A: POKE359, 126: SCREENO: DN=0 
: PRINT’ MC6809E DISASSEMBLER FOR 
COCO BY ROD HOSKINSON V1.1 198 
6": PRINT 
10 PRINT’dISASSEMBLE aSCI1 DUMP 
bYTE DUMPwORD DUMP  cLOADM 
eND": IFDN=-2THENPRINT" SCREEN 
”; ELSEPRINT" pRINTER ms 
11 IFS<0ORS>655350RE< 0ORE>65535T 
HENS=0: E=0ELSEIFS>E THENS=E 
12 PRINT’ iNPUT"’: PRINT’ START="; RI 
GHTS (" 0000" +HEXS$(S),4);" END=";R 
IGHTS ('*0000" +HEX$ (B),4);" X'?; 
13 AS=INKEYS: IFA$="" THENEXEC4 136 
9:GOTO13 
14 IFA$="D" THENI6ELSEIFA$=" A" THE 
N160ELSEIFA$=" W" THEN167ELSEIFA$= 
"C’ THEN170ELSEIFA$="B" THEN172ELS 
EIFA$="P" THEN 179ELSEIFAS="S" THEN 
180ELSEIFAS$=" I" THENGOSUB17: GOTO1 
0 
15 IFA$="E" THENCLSO: POKE65494, 0: 
END: ELSE13 
16 PRINT” DISASSEMBLE” ; : GOTO25 
17 PRINT: LINEINPUT" START="; C$ 
18 LINEINPUT’ END="; DS 
19 IFLEFTS$ (C$, 1)="$" THENS=VAL ("& 
H" +MID$ (C$, 2) ) ELSES=VAL (C$) 
20 PO=S 
21 IFLEFTS(D$, 1)="$"THENE=VAL ("& 
H’ +MID$ (D$, 2) ) ELSEE=VAL (D$) 
22 IFE<S THEN17 
23 IF S<0ORS>655350RE<0ORE>65535 
THEN17 
24 RETURE 
25 Z=0: PO=S: BG=S: ST=S: G$=""; B=PE 
EK (S) : F=0 
26 IFB<>&H10 AND B<>&H11 THENS=S 
+1:GOTO34 
27 T=PEEK(S+1): IFT>&H20 ANDT<&H3 
© THENS=S+2: B=T: F=1: GOTO34 
28 IFB=&H11 THENGOSUB206:C=50 EL 
SEGOSUB205: C=155 
29 FORI=1TOC STEP7: Y$=MID$(S$, I, 
7) 
30 IFVAL (’&H"+LEFTS$ (Y$,2))<>T TH 
EN32ELSEMS=MID$ (YS, 3, 1):G$=RIGHT 
$(Y$, 4): IFRIGHTS (G$, 1)=" "THENGS 
=LEFTS (G$, 3) 
31 S=S+2:GOT043 
32 NEXT 
33 S=S+2:G$="27?": GOTO149 
34 Q=INT(B/16)+1:0NQ GOSUB193, 19 


March 1986. 


4,195, 196, 197,198, 199, 200, 201, 20 
2,202,202, 204, 203, 203, 203: GS=KID 
$(S$, (B- (Q-1) 16) 45+1, 5) 


35 
0) 


G$, 


IFB<&H90 OR (B>&HBF AND B<&HD 
THENMS=RIGHTS$ (G$, 1): GS=LEFTS ( 
4): IFM$="" "THENMS=RIGHTS (G$, 1 


): GS=LEFTS (G$, 3) 


36 


IFB<&H90 OR (B>&HBF ANDB<&HDO 


) THEN40 


37 


38 


G$=LEFTS$ (G$, 4): IFRIGHTS (G$, 1) 
" THENGS$=LEFTS (G$, 3) 
M=0: M=-68% (BO &H8F ANDB<&HA0)- 


68* (B>&HCF ANDB<&HEO)-73%* (B>&HOF 
ANDB<&HB0)-73X(B>&HDF ANDB<&HFO 
): IFM=OTHENMS=" E” ELSEMS$=CHRS (M) 


39 
40 
41 
49 
42 


GOTO41 
IFF=1THENGS="L" +G$ 
I FG$=" k*Xk" THENGS="772" : GOTO] 


I FGS$="----" THENGS=" ANDCC" : MS= 


oo 1” 


43 
44 
45 
46 


I FMS="H" THEN149 

IFNS<>"R" THEN 

G$=G8+" $” 

IFLEFTS$ (G$, 1)="L" THENB=16ELSE 


B=8 


AT 


I FB=16THENT=PEEK (S) X256+PEEK ¢ 


S+1):S=S+2: ELSET=PEEK (S) : S=S+1 


IFB=8THENDS2 
TFT) 32767 THENT=— (65536-T) 
GOSUB182: T$=HEX$ (S+T) : GOSUB15 


GOTO54 
IFT> 127THENT=— (256-T) 
GOSUB182: T$=HEX$ (S+T) : GOSUB15 


G$=G$+T$: GOTO149 
IFM$<>” D” THEN61 

G$=G$t" <$" 
T$=HEX$ (PEEK (S) ) : GOSUB158 
S=S+1 

G$=G$+T$ 

GOTO149 

IFN$<>"E” THEN6G4 

G$=G$t" $" 

TS$=HEX$ (PEEK (S) X256+PBEK (S+1) 


): GOSUB157: S=S+2: G$=G$+T$: GOTO14 


9 
64 


I FM$=" 1" ORMS=" 2" THENOSELSE7 1 


65 G$=G$+" #8” 


66 


IFM$=" 1" THENTS=HEXS (PEEK (S) ): 


S=S+1: GOSUB158 


67 


I FM$=" 2" THENTS=HEXS (PEEK (S) X2 


56+PEEK (S+1) ): S=S+2: GOSUB157 


68 
69 


G$=G$+T$ 
IFLEFT$ (G$, 4)="QRCC” OR LEFTS 


(G$,5)=" ANDCC” THENGOSUB184: GOTO1 


49 


70 IFM$="1" ANDVAL (" &H"+T$)<&H7F 
ANDVAL ("&H"+T$)>&H1F THENGS=G$+" 

""+CHRS (VAL (" &H" +T$) ) : GOTOI49EL 
SE149 


71 


1FMS$<>"M" THEN102 


72 G$=G$t" " 

73 1FLEFTS$ (G$,3)=" PSH" ORLEFTS (G$ 
»3)=" PUL” THEN9O 

74 B=PEEK(S): S=Sti 

75 TS$=HEXS$ (B) : GOSUB158 

76 L$=LEFTS$(T$, 1): RS=RIGHTS(T$, 1 


) 


77 L=VAL("&H" +L$) : R=VAL (" &H" +R$) 
78 N=L: GOSUB79: G$=G$+T$+",": N=R: 
GOSUB79: G$=G$+T$: GOTO149 

79 IFN=OTHENTS$="D": RETURN 

80 IFN=1THENT$="X": RETURN 

81 IFN=2THENT$="Y": RETURN 

82 IFN=3THENT$="U": RETURN 
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83 IFN=4THENT$="S";: RETURN 
84 IFN=5STHENT$=" PC": RETURN 


65 I[FN=8THENT$=" A": RETURN 
86 IFN=9THENTS$="B": RETURN 
87 IFN=10THENT$="CC": RETURN 
88 IFN=11THENT$=" DP": RETURE 
89 T$="?2": RETURN 
90 D=PEEK(S):S=S+1:GOTO91 
Q1 IF(D AND128)=128THENGS$=G$+" PC 
9 
Q2 IF(D AND64)=64ANDLEFTS (G$, 1)= 
"U" THENGS=G$+"S, ": GOTO94 
93 IF(D AND64)=64THENGS=G$+t"U," 
94 IF(D AND32)=32THENGS$=G$+"Y," 
95 IF(D AND16)=16THENGS=G$+"X," 
96 IF(D AND8)=8THENGS=G$+" DP,” 
97 IF(D AND4)=4THENGS=G$+"B,” 
98 IF(D AND2)=2THENGS=G$+"A," 
99 IF(D AND1)=1THENGS=G$+"CC,”" 
100 IFRIGHTS(G$, 1)=",” THENGS=LEF 
T$ (G$, LEN (G$)-1) 
101 GOTO149 
102 D=PEEK(S): S=S+1 
103 PM$="" 
104 O$=""; E$="": F=0 
105 IF(D AND16)=16 AND (D AND128 
)=128 THENF=16: D=D-16 
106 IFD=159THENG$=G$+" "+"( $"+RI 
GHTS ('"0000” +HEXS (PEEK (S) X256+PEE 
K(S+1)),4)+"]": S=S+2: GOTO149 
107 Q=D AND31 
108 IF(D AND128)<>OTHEW112 
109 T=-16k((D AND16)=16)-8x((D A 
ND8)=8)-4*((D AND4)=4)-2*((D AND 
2)=2)-1*((D AND1)=1) 
110 IFT>15THENT=— (32-T) 
111 O$=STR$ (T): GOTO130 
112 IFQ=4THEN130 
113 IFQ<>8THEN116 
114 T=PEEK(S): S=S+1: IFT>127THENT 
=- (256-T) 
115 O$=STR$(T) : GOTO130 
116 IFQ<>9THEN119 
117 T=PEEK (S) *256+PEEK (S+1): S=S+ 
2: [FT>32767 THENT=— (65536-T) 
118 O$=STR$(T):GOTO130 
119 IFQ=6THENOS=" A" : GOTO130 
120 IFQ=5THENOS="B" : GOTO130 
121 IFQ=11THENO$="D" : GOTO130 
122 IFQ=OTHENPMS=" +": GOTO130 
123 IFQ=1THENPMS$="++" : GOTO130 
124 [FQ=2THENPM$="~-" ; GOTO130 
125 IFQ=3THENPM$="--" : GOTO130 
126 IFQ=12THENT=PEEK (S) : E$="PCR" 
:S=S+1: GOSUB182: IFT>127THENT=— (2 
96-T) 
127 LFQ=12THENOS="$"+RIGHTS ("000 
0" +HEX$ (S+T) , 4): GOTO130 
128 I[FQ=13THENES$=" PCR": T=PEEK (S) 
*256+PEEK (S+1): S=St2: GOSUB182: IF 
T>32767THENT=- (65536-T) 
129 IFQ=13THENQ=12:G0T0127 
130 IFLEFT$(O0$,1)=" *THENOS=MID$ 
(0$, 2) 
131 G$=G$+" "+0$ 
132 IFES=" PCR” THENGS=G$+" ,"+E$:G 
OTO143 
133 T=D AND96 
134 IFT=OTHENES=" X” 
135 I[FT=32THENES=" Y” 
136 I[FT=64THENES="U" 
137 IFT=96THENES="S" 
138 I[FPM$=" +" THENES=E$+" +" 
139 IFPM$="++" THERES=E$+" ++" 
140 I[FPM$="-" THENES="-" +E$ 
141 I1FPNS$="--" THENES="--" +E$ 
142 G$=G$+","+E$ 

continued on Page 
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UTILITY 


DIRECTORY PRINT 


by Geoff Mackie 











130 CLS: PRINT@O,"READING DIRECTO 


RAINBOW FROGRAMS RY ..... PLEASE WAIT 
’ ALPHA1 BAS ALPHA2 BAS DJACKET BAS ' A MOMENT”; 

’ DJACKINS VIP JACKET BAS a 135 FORJ=1TO S: IFJ=2THENSD$=" (B 
A HERS DS SUN ELSESDSS ( 
136 IFJ=1THENSD=0ELSESD=KS 

t 1 140 FORI=3T0i1 

a t 150 DSKIS$SD,17,1, A$, BS 

This is a utility program designed to 160 C$=A$+LEFT$ (BS, 127) 

, print out jackets for your disks. The idea : 170 NAM$ (A)=LEFTS$ (C$, 8) 

; arose when I was looking for a program = = {199 1p LEFTS (NARS (A), 1)=CHRS (255 
; that I knew was on one of 5 full disks. ) THEN 290 a 

' The question was which one? I thought it ‘ 200 IF LEFT$(NAM$ (A), 1)=CHR$ (0) 

would be handy to have a record of each THEN NAM$(A)="": EXT$ (A) =": A=A-1 
1 disk's contents right there on the cover. ; 210 FORN=1T07 

"Disk Jacket” will read your disk’s 8 220 NAM$S CA+N)=MIDS (C$, NX32+1, 8) 

, directory (single sided, double sided or oe EXTS (A+N)=MID$ (C$, 9+NX32, 3) + 
8 | 


flippy), alphabetize it if you wish, print 


240 IFLEFTS (NAM$ (A+N) , 1)=CHRS (25 


, a title for the disk then print the, 5) THEN290 
s directory on the jacket in one of two, 250 IFLEFTS$ (NAMS$ (A+N), 1)=CHR$ (0) 
sizes. You can have an inner sleeve to go! THENNANS (A+) ="": EXTS CAtND="": A 
s inside the original jacket or a larger, =An1 
t - the 260 NEXTN 
, cover to replace the original jacke 270 A=A+8 
» choice is yours. : 280 NEXTI 
. The program is set up for a Gemini ! 285 IFS=2 ANDNS=0 THENPRINT@256, 
, printer, but routines are provided for , "PLEASE TURN THE DISK IN DRIVE 0 
' other printers. If you wish to make as 237 woalR3p0o Senter)."; 
, permanent copy for your printer, the, 288 IFI$<>CHR$(13) THEN287 
' variables to change are as follows: ' 290 NEXTJ: NF=A+N-1 
~ 1 CNS = double width on 300 IFNF>66THENCLS: PRINT@128,"TO 
- CO$ = double width off O MANY FILES TO FIT ON THIS JA 
~“_} Pps = form feed on in line 2080 STAT AS MANY as POSS. ep 
: ’ >RINT AS MANY AS POSSIBLE OR<a 
: and in 2070 PRINT#-2, ‘double strike’. ' >BORT THIS JACKET ?”; ELSE310 
Sk DST Nouae ce 303 GOSUB3000 
' 305 IFI$="P" THENNF=66: GOTO310EL 
SEIFI$=" A" THEN840ELSE303 
: ' 310 CLS: PRINT@128,""ALPHABETIZE D 
a " IRECTORY FILES 
: : (Y/N) 2"; 


The Listing: 


"x DIRECTORY PRINT PROGRAM * 
’* WRITTEN BY GEOFF MACKIE 
'* 6 PIALBA CRT NTH GOSFORD* 
"x ¥.S.W. 2250 k 
'x COPYRIGHT JAN’ 86 x 

5 ) KXKKKKKKKKAKEKKKEK EKA KKKKER 
10 CLEAR2000: FL=1: GOSUB2500: GOSU 
B2000 

20 CLS: PRINT@128,"DO YOU WANT IN 
STRUCTIONS (Y/N) ?"; 

30 GOSUB3000 

40 IF I$="Y" THENGOSUB1500 

50 CLS: PRINT@128," WHAT SORT OF D 


mWNeF Oo 


ISK JACKET WOULD YOU LIKE 
; <8 
|} NER SLEAVE OR <o>U 


TER COVER ?"; 

60 GOSUB3000: IFI$="I1" THENTA=60: 
TC=67;: TD=7ELSEIFI$="0" THENTA=63 
: TC=70: TD=9ELSESOUND20, 5: GOTO60 

90 IFFL=OTHENGOSUB2510 

100 CLS: PRINT@128," PLACE THE DIS 
K FOR WHICH YOU WANT TO MAKE 

A NEW JACKET FOR IN DRIVE 0 AR 
D PRESS <ENTERD"; 

110 GOSUB3000 

120 IF I$<>CHR$ (13) THEN110 

125 CLS: PRINT@128,"1S THE DISK < 
d>OUBLE SIDED, <f>LIPPY, OR 

<n>ORMAL ?” 

126 GOSUB3000 

127 IFI$="D" THENS=2: NS=2ELSEIFI 
$="F" THENS=2: NS=OELSEIFI$="N" TH 
ENS=1: NS=OELSE126 


320 GOSUB3000 

330 IFI$="Y" THENPRINTC@260," ALPH 

ABETIZING DIRECTORY ....";:GOSUB 

1000 

340 CLS: PRINT@128,"TITLE OF DISK 
(0-26 CHAR’S) ?”; 

350 LINEINPUT TL$ 

360 IFLEN(TLS$) >26THENPRINTOQ224,” 

TITLE TOO LONG!”; : GOTO340 

370 IFS=2THENIN=IN-3ELSEIN=5 

400 Z=0: FORI=1T071 

410 PRINT#-2,"-"; 

420 NEXTI 

430 PRINT#-2," " 

440 T=LEN(TL$): TB=(26-T) /2: IFTB< 

>INT(TB) THENTB=INT (TB) +1 

450 PRINT#-2,":";STRINGS(TD,” ") 

; CNS; STRINGS (TB," "); TL$; STRINGS 
(TB,” ");CO$;STRINGS(TD,"” ");":" 

460 PRINT#-2,":"; TAB(TC);":" 
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480 FORI=1T022 

490 Z=Z+3: PRINT#-2,":"; 

500 IF Z<=NF THENGOSUB700ELSEIF 
NF-Z+3=1 THENGOSUB730ELSEIF NF-Z 
+3=2 THENGOSUB750 

510 PRINT#-2, TAB(TC) ;":": NEXTI 
520 FORI=1T02 

530 FORJ=1T0O8 

540 PRINT#-2,"-"; 

550 NEXTJ: PRINT#-2, TAB(TA): NEXTI 
560 PRINT#-2," " 

570 FORI=1T028 

580 PRINT#-2, TAB(7)": "TABC(TA)":” 
590 NEXTI 

610 PRINT#-2, TAB(7); 

620 FORI=1T057 

630 PRINT#-2,"-"; 

640 NEXTI 

650 PRINT#-2, CHR$ (10) 

660 PRINT#-2, FF$ 

670 GOTO810 

700 IFTA=60 THEN770ELSEPRINT#-2, 
STRING$(7," ");: FORY=1TO3: PRINT# 


—-2, NAM$ (Y+Z-3);" "; EXT$(Y+Z-3);S 

TRINGSCIN,” '); 

710 NEXTY 

720 RETURN 

730 PRINT#-2, STRING$(7," "); NAM$ 
(NF);”" "; EXTS$S (NF); 

740 RETURN 

750 IFTA=60THEN780ELSEPRINT#-2,S 

TRINGS(7,” ");NAMS$(NF-1);" "3; EXT 

$(RF-1); STRINGS CIN,” "); NAMS$ (NF) 
o - EXTS (NF); 

760 RETURN 

770 PRINT#-2, STRINGS (7," "); NAMS 
(Z-2);" "; EXT$(Z-2) ; STRINGS CIN,” 
"):NAM$(Z-1);" "; EXT$(Z-1); STRI 
NGSCIN,” ");NAMS$(Z);" "; EXTS(Z); 
: RETURN 

780 PRINT#-2, STRINGS(7," "); NAMS 
(NF-1);" "; EXT$ (NF-1); STRINGS CIN 
,” ">: NAMS (NF); "; EXTS (NF); : RET 
URN 


810 CLS: PRINT@128,”" WOULD YOU LIK 
E ANOTHER COPY OF THIS JACKET (¢ 
Y/N) ?"; 

820 GOSUB3000 

830 IFI$="Y" THENGOTO400 

840 CLS: PRINT@224," WOULD YOU LIK 
E TO PRINT ANOTHER DISK JACKET ( 
Y/N) ?"; 

850 GOSUB3000 

860 IF I$="Y" THENFL=0: GOTO90 

900 CLS: PRINT@6,”" YOU HAVE BEEN U 
SING": PRINT: PRINT: PRINT” "D 
ISK JACKET MAKER’"”: PRINT: PRINT@1 
94,"WRITTEN FOR YOUR CONVENIENCE 
": PRINT@233,"BY GEOFF MACKIE”: PR 
INT@262,"OF COMPUTER WIZARDRY”: P 
RINTC333," BYE FOR NOW" 

910 END 

1000 FORI=1TO NF 
1010 TEMPS$ (I)=NAM$ (I) +EXTS$ (1) 
1020 NEXTI 

1030 FORI=2TO NF 

1040 J=I-1: T$=TEMP$ (1) 

1050 IFJ>OTHENIFTEMP$(J)>T$ THEN 
TEMP$ (J +1)=TEMP$ (J): J=J-1: GOTO10 
50 

1060 TEMP$(J+1)=TS$ 

1070 NEXT! 

1075 IFS=2 THENG=G+4ELSEG=3 

1080 FORI=iTO NF 

1090 NAM$(I)=LEFTS$ (TEMP$(1),8):E 
XT$ (1)=RIGHTS (TEMP$ (1) ,G) 

1100 NEXT! 

1110 RETURN 
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1500 CLS: PRINT@32,"THIS IS A PRO 
GRAM THAT PRINTS OUT A DIRECTO 
RY OF THE DISK IN DRIVE 0 IN TH 
E FORMAT OF A DISK JACKET. 
THAT 1S, ONCE” 

1510 PRINT" PRINTED, IT CAN BE CU 
T AND GLUEDTO MAKE EITHER A SLEA 
VE (LIKE ARECORD COVER) OR A NE 
W DISK JACKET."; 

1515 PRINT@480,"PRESS <enter> TO 
CONTINUE” ; 

1517 GOSUB3000: IFI$<>CHR$ (13) THE 
N1517 

1520 CLS: PRINT@32,"IF YOU MAKE O 
NE OF THESE JACKETSFOR EACH OF Y 
OUR DISKS YOU WILL HAVE AN INSTA 
NT RECORD OF THEIR CONTERTS." 
1530 PRINT@256,"THE PROGRAM WILL 
PROMPT YOU AT EACH STEP FOR TH 
E INFORMATION THAT IT NEEDS. J 
UST ANSWER THE PROMPTS AS REQUI 

RED.” 

1540 PRINT@480,"PRESS <enter) TO 
CONTINUE"; 

1550 GOSUB3000: IF1$<>CHR$ (13) THE 

N1550 

1560 CLS: PRINT@32,"THE PROGRAM C 

AN HANDLE FLIPPIES, DOUBLE-SIDED 

AND ORDINARY DISKS. FLIPPIES AND 

DOUBLE-SIDED ARE TREATED AS SI 

DE ’A' AND SIDE 'B'AND THE FILES 
ARE LABELED AS SUCH ON THE D 
ISK JACKET." 

1570 PRINT@480,"PRESS <enter> TO 
CONTINUE”; 

1580 GOSUB3000 

1590 IFI$<>CHR$(13) THEN1580 

1600 CLS: PRINT@32,"THE PRINT ROU 

TINES USE DOUBLE STRIKE, DOUBL 

EK WIDTH FOR THE HEADING AND A 


UTOMATIC FORMFEED FOR TRACTOR F 
EED PAPER." 


1610 PRINT: PRINT’ IF YOU DON'T WA 
NT TO USE THIS FORMAT JUST ANS 
WER THE 'EPSOM PRINTER’ PROMPT 


WITH ‘'n’ AND DON'T INPUT ANY 
CODES. (ENTER 500 AT EACH PRO 
MPT)’ 


1620 PRINT@480,”"PRESS <enter> TO 
RETURN”; : GOSUB3000 

1630 GOQSUB3000 

1640 IF1I$<>CHR$ (13) THEN1630 

1650 RETURN 

2000 IF (PEEK(&HFFe2) AND 1)=1 T 

HEN 2010 ELSE 2020 

2010 CLS: PRINT@128," PRINTER IS O 

FFLINE!"; : SOUND20, 3: GOTO2000 

2020 CLS: PRINT@128," ENTER BAUD R 

ATE CONSTANT (DEFAULT [5S 

600 BAUD)"; : INPUTB$ 

2030 IFBS=CHR$ (13) THEN2050 

2040 POKE150, VAL (BS) 

2050 CLS: PRINT@128,"DO YOU HAVE 

AN EPSOM OR GEMIMI TYPE PRINTER 
(Y/N) ?"; : GOSUB3000 

2060 IF I$="N" THEN2100 

2070 IF I1$<>"Y" THENGOSUB3O00ELS 

EPRINT#-2, CHR$ (27) ; CHR$ (71); 

2080 CNS$=CHR$ (14) : CO$S=CHRS$ (20): F 

FS$=CHR$ (12) - 

2090 RETURN 

2100 CLS: PRINT@128," ENTER YOUR P 

RINTERS' CODE FOR DOUBLE STRIK 

E (E.G. 27 <ENTER> 71 <ENTER) E 

TC. ENTER 500 WH 

EN FINISHED.”: PRINT 

2110 INPUTA: I1FA=500THEN2140 

2120 COQ=CO0+1: DS$ (CO)=CHRS$ (A) 
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2130 GOTO2110 

2140 FORI=1TO CO: PRINT#-2, DS$ (I) 
; > NEXTI 

2150 CLS: PRINT@128," ENTER YOUR P 
RINTERS' CODE FOR DOUBLE WIDTH 
PRINT. ENTER 500 WHEN FINISHE 
D.": PRINT 

2160 INPUTA: IFA=500THEN2180 

2170 CU=CU+1: CNS (CU) =CHR$ (A): GOT 

02160 

2180 IFCU=OTHENCN$=""ELSEIFCU=1T 

HENCNS$=CN$ (1) ELSEIFCU=2THENCNS$=C 

N$ (1) +CN$ (2) ELSEIFCU=3THENCNS=CN 

$ (1) +CN$ (2) +CN$ (3) 

2190 CLS: PRINT@128,"ENTER YOUR P 

RINTERS' CODE TO TURN OFF DOU 

BLE WIDTH PRINT. EBTER 500 WH 

EN WHEN FINISHED.”: PRINT 

2200 INPUTA: IFA=SOOTHEN2220 

2210 CF=CF+1: COS (CF) =CHR$ (A): GOT 

02200 

2220 IFCF=OTHENCOS=""ELSEIFCF=1T 

HENCO$=CO$ (1) ELSEI FCF=2THENCOS$=C 

O$ (1) +CO$ (2) ELSEIFCF=3THENCO$=CO 

$ (1) +CO$ (2) +CO$ (3) 

2230 CLS: PRINT@128,""ENTER YOUR P 

RINTERS' CODE FOR A FORMFEED. EN 

TER 500 WHEN DONE.”: PRINT 

2240 INPUTA: IFA=500THEN2260 

2250 F=F+1: FF$ (F)=CHR$ (A) : GOTO22 

40 

2260 IFF=OTHENFF$="" ELSEIFF=1THE 

NFF$=FF$ (1) ELSEIFF=2THENFFS=FF$ ( 

1)+FF$ (2) ELSEIFF=3THENFFS=FF$ (1) 

+FF$ (2) +FFS$ (3) 

2270 RETURN 

2500 DIM NAM$(70), EXT$ (70), TEMPS 
(70) 

2510 N=0: A=1:G=3: IN=5 

2600 RETURN 

3000 IS=INKEYS$ 

3010 IFI$=""" THEN3OOOELSERETURN 
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Gaining Insight Into 
Your Child’s Self-Image 


By Steve Blyn OH i | ® 3 


chools are in a unique position 
GS: to their obligation to reach 

and teach the entire population. 
Consequently, they exert a major force 
in the process of transferring fundamen- 
tal values from one generation to 
another. A self-image, hopefully a 
positive one, is a necessary component 
of learning these social values. 

This article presents a program that 
can become part of a guidance system 
at home or in your classroom. 

This month’s program, Who Am I), 
deals with the topic of helping children 
develop a good self-image. The pro- 
gram is in the form of a questionnaire. 
This type of guidance goal deals with 
forming attitudes and developing rea- 
soning processes rather than imparting 
any factual knowledge. There are, 
therefore, no right or wrong student 
responses to the questions. On the 
contrary, we should be prepared for a 
wide variety of student thoughts and 
feelings in response to the questions. 

The giver of the questionnaire, either 
parent or teacher, must try to create a 
climate where empathy and trust are 
established before beginning this or any 
similar activity. We do not want children 
to give answers they think will make us 
happy. We want, instead, the children to 
give honest answers that you may ex- 
plore with them afterward. 

Children’s answers to such question- 
naires are often very revealing. It is not 
uncommon to find children with ob- 
viously very poor self-images. We all go 
through periods of life where we may 
have a relatively poor self-image. As 
adults, we have hopefully learned how 
to deal with and modify our feelings. 

Your work really begins after the 
questions are answered. The answers 
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may expose problems that are bother- 
ing the child about his or her feelings. 
This is your chance to apply a little 
guidance. We want to help impart 
Strategies for change or means of coping 
with these feelings. If done in a group 
setting, it is often helpful for children to 
hear their type of negative feelings 
expressed by others. There’s a little bit 
of the “Charlie Brown” poor self-image 
in all of us. 


Lines 90-130 set the tone of the 
program by drawing a silhouette of a 
large letter ‘I’. Lines 140-340 print the 
13 key questions and the child’s re- 
sponses. This comprises the bulk of the 
questionnaire. There is little room on 
the screen for the answers. It is best to 
instruct children to keep their answers 
short, although there is really no prob- 
lem if any of the answers are longer than 
the space allotted since the entire 
answer is stored and reappears in the 
next section of the program. 

There is additionally a final question. 
Lines 380-480 contain ample room for 
three answers to the statement “What I 
like about myself.” This section appears 
on a new screen. Pressing the up-arrow 
key then the ENTER key allows you to 
utilize the questionnaire that was just 
completed. Each press of the ENTER key 
shows the next response in the series. 
The questions and the child’s complete 
responses will reappear as a reminder or 
helper for him or her to answer the final 
question. This can also serve as a review 
for both of vou. The items are recalled 
by lines 580-650. 

An option for a permanent hard copy 
is provided as the final part of the 
program. The printout is useful as we 
tend to forget the responses. An alter- 
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native is for you to write the answers 
down on a sheet of paper as the child 
enters them into the computer. Line 490 
asks you to press the ‘E’ key to end the 
program or the up-arrow key to get the 
printout. The printout is performed by 
lines 520-560. 


The questions contained in this pro- 
gram were taken from a guidance bul- 
letin published by the New York City 
Board of Education. Another activity I 
like very much from this bulletin pre- 
sents a slightly different way of helping 
to look at achild’s self-image. It is called 
the “Coat of Arms” game. The child or 
class is given a blank outline of a shield 
divided into four parts. In each of the 
parts, they draw response to the follow- 
ing four items. 

A) Draw two things you do well. 

B) Draw your greatest success in life. 

C) Draw two things you would do if 
you had only one more year to live. 

D) Draw two things you would like 
said about you. 

The resulting picture represents the 
child’s individual “coat of arms.” The 
adult can glean valuable information 
about the child’s values and self-image. 
This leads to similar follow-up discus- 
sions as with the questionnaire. 

The “Coat of Arms” activity is just as 
good an activity as the questionnaire. 
Consider, however, the challenges of 
programming that it presents. Perhaps 
one of you readers would like to take 
up this challenge. We at Computer 
Island would love to see the results of 
any of your efforts in this direction. In 
any case, we always enjoy hearing from 
the readers of our column. 


continued on Page 11 
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TURN OF THE SCREW 


A Beginner’s 


Hardware Course 


Part 2 


By Tony DiStefano 


ast month we took a look at 
; binary bits and different num- 
bering systems. So far, there 
doesn’t seem to be any relation between 
these and computers. All we did is 
express numbers in different forms. 
But, we are a little closer to computers 
than you think. We know the computer 
is made up of a lot of chips that use bits 
of zeros and ones. In order to under- 
stand the ins and outs of these chips, I 
will go into detail of how chips use zeros 
and ones. 

The heart of all digital-computers is 
the logic circuit elements. They perform 
binary arithmetic operations, make 
logical decisions and perform opera- 
tions such as counting and temporary 
storage. The basic type of logic element 
is called a “gate.” Gates are circuits that 
look at two or more binary signals and 
produce a binary output, which de- 
pends upon the conditions of the input 
signals. 

In order to comprehend this better, 
let’s look at an equivalent circuit that 1s 
easier to understand, using conven- 
tional components you are likely to find 
around the house. If you want to build 
and test these circuits yourself, Radio 
Shack has all the parts. The switches are 
single pole, single throw. Any battery 
and bulb combination will do, just be 
sure the battery and the light bulb are 
the same voltage rating, otherwise you 
may end up burning out the bulb or get 
no results at all. Such a circuit is shown 
in Figure 2. 

This circuit contains three compo- 
nents: a battery, a switch and a bulb. 
Here, the switch is considered the input 
and the bulb is considered the output. 
When the switch is on (a logical 1) the 
bulb is lit (this is also considered a 
logical 1). When the switch is off (logical 
0) the bulb is off. also giving us a logical 
0. In a logical element such as this, the 





input (the switch) and the output (the 
bulb) follow each other, one to one or 
zero to zero. 

The symbol used to represent this 
circuit or logical element in a logic (or 
computer) schematic is shown in Figure 
la. This gate is called a “buffer.” The 
input is exactly the same as the output. 
Not very useful in a logical sense, in that 
it does nothing, but it is needed under 
certain circumstances. For instance, 
when the output of a gate (logic ele- 
ment) is connected to many other gates, 
it may not have enough power to drive 
all the gates properly. In this case a 
buffer is used. Whenever a gate is used 
there is always a small delay between 
when the input changes and the output 
changes; a buffer is sometimes used just 
for that delay. 

To continue our understanding of 
gates, let’s introduce another factor in 
our battery circuit. Now study the 
circuit in Figure 3. It has two switches. 
The two switches are in a series, that is, 
one after the other. Therefore, they 
must both be on before the bulb will 
turn on. This circuit or logical element 
is known as an AND gate. The defini- 
tion of an AND gate 1s: “The AND gate 
is a logical element with two or more 
inputs and a single output. Both (or all 
in the case of more than two) inputs 
must be binary ‘1’ to produce an output 
of binary ‘1’.” 

The symbol for an AND gate is 
shown in Figure |b. The main value of 
the AND gate is its ability to detect 
when all inputs are binary ‘1’. For 
example, in a control system when all 
the motors are on, turn on the extra 
generator. A quick way to remember 
this gate is, when ‘A’ AND ‘B’ are ‘1’, 
then ‘Y’ is ‘1’. Hence the term AND. 

The next gate we will study is the OR 
gate. Again, we have two switches in our 
next diagram, Figure 3. The difference 


is that now they are wired in parallel, 
one on top of the other. If either switch 
is on, then the bulb will be on. If both 
are on, the light is, of course, still on. 
This circuit or gate is known as an OR 
gate. The definition of an OR gate is as 
follows: “The OR gate is a logical 
element with two or more inputs and a 
single output. If any one input is a 
binary ‘1’ then the output is binary ‘1’.” 
The symbol for an OR gate is shown 
in Figure Ic. The main value of the OR 
gate is its ability to detect when any 
input is binary ‘1’. An example of this 
use is when any door or window opens, 
an alarm sounds. A quick way to re- 
member this gate is when ‘A’ OR ‘B’ is 
‘1’, then ‘Y’ is ‘1’. Hence the term OR. 
If we look back to our first gate, the 
buffer, we notice the input matches the 
output. Since the input and the output 
are the same, it is called a “non- 
inverting” output. This gate, and most 
other gates, can also come in an “invert- 
ing” output. In the case of our buffer, 
it becomes an inverter, or better known 
as a NOT gate. Figure ld shows the 
symbol of an inverter. The definition of 
an inverter is: “An inverter is a logic 
element whose output is always the 
complement (the opposite) of its input.” 
Notice the difference between a 
buffer symbol and an inverter symbol. 
The inverter symbol has a small circle 
on the output side. Any inverting out- 
put gate has asmall circle on the output. 
This is true for the AND and the OR 
gate, too. If you take the output of an 
AND gate and tie it to the input of a 
NOT gate, the result (the output of the 
NOT gate) is an inverted AND gate (see 
Figure 5). This requires two gates and 
some wiring. It is so often used that the 
IC designers decided to put it all in one 
chip. This is called a NAND gate. The 
same thing goes with an OR gate — it 
becomes a NOR gate. These two gates 





March 1986. 


Australian RAINBOW 


PAGE 9 





are defined as follows: “NAND and 
NOR gates are the complements of 
AND and OR gates, respectively.” 

The last gate we will look at is the 
EXCLUSIVE-OR gate. The symbol for 
the EXCLUSIVE-OR gate is shown in 
Figure le. For short, this gate is called 
XOR. It is a little different than the OR 
gate and is used mostly when a signal 
needs to be inverted in some cases and 
not in others. The definition of an XOR 
gate is: “The logical XOR is defined as 
a binary ‘1’ output when either of the 
two inputs is a binary ‘1’. The other 
input being a binary ‘0’.” 

A quick way to remember the func- 
tion of this gate is when the inputs are 
different, the output is ‘1’. Like the other 
gates, it, too, has the inverted version. 
It is called the EXCLUSIVE-NOR or 
XNOR for short. The definition of an 
XNOR gate is the same as the XOR, but 
has its output inverted to a binary ‘0’ 
when either of the two inputs is a binary 
1’. 

The gates described so far are quite 
simple in structure. They have one or 
two inputs and one output. They are the 
fundamental elements in creating more 
complex chips, and even the basis of 
complete computer CPUs. In the case 
of the simple two-input AND gate, 
there are four discrete combinations of 
inputs. The two inputs are represented 
by a two-digit binary number. Re- 
member last month? They are 00, 01, 10 
and 11, and the output for each given 
condition is 0, 0, 0 and I, respectively. 
Not so hard to remember or display. 
But, in other chips, where there might 
be five or six inputs and eight or 10 
Outputs, it can be too much to re- 
member. Now is when the “truth table 
comes in. The definition of a truth table 
is: “A truth table is a graphic represen- 
tation of all possible combinations of 
inputs versus outputs of a particular 
logic element.” 

The second column of Figure | rep- 
resents the truth tables for the given 
gates. Notice that all possible combina- 
tions of inputs are given. Columns A 
and B are the inputs, as you can see from 
the gates in Column 1. Column Y 1s the 
output. Read the truth table as you read 
text, one line at a time. Each line is one 
condition. The condition is given for ‘A’ 
and ‘B’. The output, ‘Y’, is the result for 
a given gate. Every line is different, and 
continues until all possible combina- 
tions for that gate are shown. This way, 
at a glance, you can tell what the output 
is for a given input of any gate. In these 
cases, it is not too difficult to follow or 
remember. Later on, when I show you 
the truth tables for some of the chips 
that make up our good ol’ CoCo, you 
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Figure 2 


Figure 3 
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will be glad I introduced you to these 
tables. 

Though I will not be getting into great 
detail in this series of articles, I feel it 
is necessary to talk a little about Boo- 
lean algebra. The definition of Boolean 
algebra is: “A system of mathematical 
logic used to represent digital logic 
signals and express the logic operations 





Figure 4 


Figure 5 


performed by digital signals.” 

To put it into simple terms, Boolean 
algebra is an equation that represents 
the function of a logical element. Take, 
for instance, the buffer in Figure 1. The 
output is equal to the input. A Boolean 
equation would be: 


Y=A 
Now an inverter would look like this: 


Y=NOTA or Y=*A 


The AND symbol in a Boolean ex- 
pression is a dot in the middle of the 





line, like the multiplication sign in 
regular math. Notice its occurrences in 
Figure |. The OR symbol in a Boolean 
expression is a plus sign (+). Again, the 
Boolean OR symbol can be seen in 
Figure 1. The next Boolean symbol is 
the EXCLUSIVE-OR. This is no more 
than the plus symbol with a circle 
around it. Figure | also shows the XOR 
symbol. Any of the inverting symbols in 
Boolean algebra are represented by a 
small horizontal bar above the equation 
in question. You can see the inverting 
gates in Figure |. 
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The listing: WHO AM I 


19 REM"WHO AM I?" 

28 REM"STEVE BLYN,COMPUTER ISLAN 
D,NY,1986" 

38 CLEAR 2699 

4f DIM A$(13) ,B$(13) ,N$(3) 

59 CLS# 

68 WS=STRINGS (28,143) 

7 Z$=CHR$ (128) +CHR$ (128) 

88 PRINT@11," who am i?"; 

99 PRINT@32," ";PRINT 

199 FOR Y=1 TO 9 

116 PRINT@98+Z,WS; 

129 Z=Z+32:NEXT Y 

138 PRINT@384," ": PRINT 

146 A$(1)="I AM " 
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158 PRINT@32,A$(1);:LINEINPUT BS 
(1) 

169 A$(2)="I FEEL GOOD WHEN " 
17 PRINT@64,A$(2);:LINE INPUT B 
$ (2) 

189 A$(3)="I FEEL BAD WHEN " 

199 A$(4)="I LIKE PEOPLE WHO " 
A$(5)="I LIKE TO PLAY " 
AS(6)="I DON'T LIKE " 
A$(7)="I GET ANGRY WHEN * 
AS(8)="I AM BEST AT " 
AS(9)="I AM PROUD WHEN " 
AS(19)="I AM NERVOUS WHEN " 
A$(11)="I AM AFRAID TO * 

FOR T=3 TO 11 

289 PRINT@98+L,A$(T) ;: LINEINPUT 
BS (T) 

298 PRINT@126+L, Z$; 

399 L=L+32:PLAY"O02L39GCG":NEXT T 
319 A$(12)="I AM BORED WHEN " 
328 PRINT@384,A$(12) ;: LINEINPUT 
BS (12) 

339 A$(13)="I DO BEST WHEN I'M " 
349 PRINT@416,A$(13) ;: LINEINPUT 
BS (13) 

359 PRINT@486,"PRESS ENTER TO GO 
ON" : 

369 ENS=INKEY$ 

379 IF ENS=CHR$(13) THEN 389 ELS 
E 369 

389 CLS:PRINT@3,"WHAT I LIKE ABO 
UT MYSELF"; 

399 PRINT@64,"1."; 
499 PRINT@169,"2."; 
419 PRINT@256,"3."; 
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429 PRINT@354,WS; 
439 PRINT@384,"ENTER * TO REVIEW 
YOUR ANSWERS."; 

449 FOR K=1 TO 3 

459 PRINT@66+V,"";:LINEINPUT NS$( 
K) 

469 IF N$(K)="" OR N$(K)=""" THE 
N 45p 

479 IF N$(K)=CHR$(94) THEN GOSUB 
599:GOTO 459 

489 V=V+96:NEXT K 

499 PRINT@416," ":PRINT@384, "ENT 

ER * FOR PRINTOUT OR E TO END"; 
599 ENS=INKEY$ 

519 IF ENS="“" THEN 529 ELSE IF 

ENS="E" THEN 669 ELSE 599 

528 PRINT#-2,TAB(19)"WHO AM I?" 
539 FOR T= 1 TO 13:PRINT#-2," ": 

PRINT#-2,A$(T)BS$(T) :NEXT T 

549 PRINT#-2," " 

556 PRINT#-2,TAB(19)"WHAT I LIKE 
ABOUT MYSELF"; PRINT#-2," " 

569 FOR T=1 TO 3:PRINT#-2," ":PR 

INT#-2,N$(T) :NEXT T 

579 GOTO 669 

589 REM"REVIEW THE ITEMS" 

599 FOR T= 1 TO 13 

699 PRINT@416," ";PRINT@448," " 

618 PRINT@416,A$(T)+B$(T) 

62 PLAY"O3L5SCDEFG" 

639 ENS=INKEY$ 

649 IF ENS=CHR$(13) THEN NEXT T 

ELSE 639 

659 RETURN 

669 END io 
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elcome recruit, you have just 
been assigned to Camp Ike, 
training camp of the Com- 
mandos. The Commandos are an elite 
army force of skilled pilots and athletes. 
They are able to get in and out of any 
situation. You, in your infinite wisdom, 
have chosen to join them. There’s only 
one problem: You must survive basic 
training. You must complete a three- 
stage test six times to achieve the be- 
loved rank of Commando First Class. 
Each test increases in difficulty as one 
progresses up in levels. 





Stage 1: Hundred-Yard Dash 

A Commando must be fit, so to prove 
your agility you must run from the 
camp to the A.F.1 spider jet on the other 
side of the compound. Sounds easy, but 
look up; as you run bombs will drop. 
You are gone if the explosion or ra- 
dioactivity reaches you. Upon reaching 
the jet it takes you to the next stage of 
the test. 


Stage 2: Rescue 

In this stage you control the jet in an 
attempt to rescue a helpless captive 
trapped in the valley. You must ma- 
neuver the jet down through the open- 
ing in the valley and avoid being shot. 
Once in the valley, you place the jet over 
the victim and press the firebutton to 
beam him up. Caution: On higher levels 
the tank moves toward the victim. If the 
tank runs over the victim, you both die. 
Once you have the victim, leave the 
valley and fly toward the left side of the 
screen to complete the second part of 
the test. Note: Hitting the valley walls 
will also kill you. 


Stage 3: Obstacle Course 

The final phase of each test is to 
successfully travel through the obstacle 
course. This requires starting at the top 
of Snake Rock, avoiding cannon fire 
and entering the cave at the bottom left 
of the screen to complete the test. As 


By Anthony Frerking 


levels increase, moving walls are added 
to impede your progress. Should you 
get shot or crash into walls, you will die. 


End of Game 

The game is over when you have lost 
all of your men (there are three of them) 
or you finish six complete tests. At the 
end of the game you receive your score, 
your rank, the level last completed and 
number of lives you saved. If you 
complete all six levels, you are also 
given the total time to complete the tests 
and receive the Commando Medal of 
Honor. After seeing your statistics, the 
screen clears and displays the high 
scores (up to 10). 

The first two levels are meant to give 
you a chance to get familiar with the 
game and how to handle the joystick. 

You are awarded 100 points multi- 
plied by the level you are on for each 
stage completed, plus extra points for 
finishing each stage under the required 
time limit. Good luck, Cadet! 
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The listing: COMMANDO 


199 ‘BEGIN 

119 DIM C(15,15) ,D(15,15) ,N$(11) 
,S8C(11),LV(11) 

159 ‘INTRO 

169 CLS 

176 PRINT@68,"ARTIFACTS RARELY F 
OUND"; : PRINT@133, "PROUDLY PRESEN 
TS ..."3 

189 PRINT@293 ,"COMMANDO";: PRINT 
@279,"BY";: PRINT@396,"1985": 

199 PRINT@327,"ANTHONY FRERKING" 
;: PRINT@455,"<PRESS ANY KEY>": 
298 AS=INKEYS$:IF AS="" THEN 2969 
218 CLS: INPUT"YOUR NAME";NS$ 

213 GOSUB7£99 
215 IF NS=""ARF 
228 GOSUB 5998 
238 PMODE 3,1:PCLS:SCREEN1,1 

235 IF NS$="ARF " THEN 265 
249 FORI=1T0O17$:R=RND(8) : CIRCLE ( 
127,96) ,I,R:NEXT 

259 FORJ=1T05:FORI=1 TO 8:I$=STR 
$(I) : DRAW"C"+1$+";BM19 , 69;NR3PD4 
PRIPBRIPNR2PU2ZPR2GD2GBR1PGU2PF1GE 
1$D2PBR1PU2ZSF1PE1PD2PBR1PU1LPE1OF 
1ONLZ2GD1PBR1IPU2ZPSF2HSU2PBR1GNR1GD2 
PRIPELPHLPBR2GD2PR2GU2ZPL29" : NEXT 
NEXT 

269 GOSUBS£O9 

265 R$(1)="GARBAGE SCRUBBER": RS ( 
2)="COOK":R$(3)="FOOT SOLDIER":R 
$(4)="MINER":RS$(5)="COMMANDO 2ND 
CLASS":R$(6)="COMMANDO 1ST CLAS 
tf ] 


" THEN 239 


S 
276 TT=9: LV#=1: PH=1:SC=$: LI=3 

289 PL$(1)=";L2D2ZR2D8L2": PL$ (2)= 
"> L2ZD2ZR2NG4NF4D4NG4F4" 

298 CS$="";GSNDS5SRS5ND5R5ND5H5U5L5D2 
R5": PL$ (3) ="";G6ND2BU4NU2 F4NE4R4N 
H4E4NU2BD4ND2H4NL4H2"3: BS (1) =";R4 
G8NR8D2NR8F4NU4E4U2H8L4D8" 

399 BS$(2)=";BR4G2H2G2NH2D6E2F2NU 
6R2G2D2NL4G2H2U2H2R2" 

318 TS$=";G2D1F2L3G2NR15D1F2R11E2 
U1H2L3NLS5E2U1NR3H2L5NU2" 

328 BLS$=";NULSNDISNR1IPSNL1PSNESNH5 
NG5SF5"' 

358 'LV1l 

369 PH=1:AR=$:H=239:V=148:V$=STR 
$(V) :E=1:HS$=STRS (H) :R=7:Q=eLV*19+ 
29:R=R-L: TI=9 

378 PCLS(1) : DRAW"C2;BM9,149;R49G 
5L15D15R22fU1SH1PR25": PAINT (9,16 
9) ,2,2 

389 DRAW"C3 ;BM19,139"+PLS$ (3) 

398 DRAW"C4 ;BM249,138"+C$ 

498 ‘MOVE 

419 DRAW"C1;BM"+HS+", "+V$+PLS$ (E) 
428 J(1) =JOYSTK(D) 

439 IF J(1)<=15 THEN H=H-5 ELSE 
IF J(1)>#55 THEN H=H+5 ELSE 469 
449 IF H>#239 THEN H=239 ELSE IF 
E<=38 THEN 4919 

45% IF E=1 THEN E=2 ELSE E=] 

468 HS=STRS (H) : DRAW"C3 ;BM"+HS+", 
"-VS+PLS (E) 

478 Ti=Ti-1 

523 ‘ENEMY. 

Sig IF AR=1l TEENS9SS 
2$ F=#FRND (2) :2F Y<>l THEN 499 

#8 Y=RNT(2):CN Y GOTO 549,559 
42 F232:X= (RAND (14) #19) +653 Ya213G 
CTO 564 


58g F=22:X=(RND‘15) +18) +59: Y=2 
542 HSS=STRES ‘X) : VSS=STRS (Q) : DRAW 
O04; BM"+HES-", ©+vES-3S (Y) 

57g Z=Q:AR=1 

52g GET‘X-5,2'-'X-5,2+15',C,G 
March 1986. 


599 PUT(X-5,2Z)-(X+5,Z+15) ,D 

699 Z=Z+16:SOUND 169-Z,1:IF Z<15 
THEN 669 

619 Z=8:PLAY"V3f03T4L1C":0N Y GO 
TO 628,649 

628 COLOR Z,8:LINE(X-7,169) -(X+7 
,135) , PSET, BF 

639 FORI=1TO2PSTEP3: CIRCLE (X-I,1 
25) ,19,2:CIRCLE(X+I,125) ,19,Z:NE 
XT:Z=Z-3:IF Z<4 THEN 659 ELSE 62 


g 

649 FORI=1TO2PSTEP3:FORJ=4TO1l ST 
EP-1:CIRCLE(X,169),1I,J3,1,.5,1:NE 
XT: NEXT 

65 IF H>=X-F AND H<=X+F THEN 39 
$f ELSE AR=$:GOTO 499 

669 PUT(X-5,2Z)-(X+5,2+15) ,C, PSET 
sGOTO 496 

1998 'LV2 

1919 PH=2:N=1$:H=225:U=193:V=39: 
AR=$:TI=$:AA=115:AB=9 

1915 Y=59:R=159 

1929 PCLS(1) 

1932 DRAW"C2;BM2,89;RIPPF2OD1PL1 
PH1PG1PD3PL49G1PD1PR2GGUEPL7PG19 
L1PU1SE2PR9IG": PAINT (9,199) ,2,2 
1949 DRAW"C4;BM69,159"+T$ 

1958 FORI=1TOLV 

169 LINE(99, (I*5)+119)~(199, (I* 
5)+119) , PSET 

1965 NEXT 

1978 DRAW"C3;BM219,159"+PLS$ (2) 
1988 DRAW"C4;BM99,79"+PLS$ (2) 
1999 IF LV >2 THEN DRAW"'C4;BM189 
, 78"+PL§ (2) 

1199 IF LV<3 THEN Q=1 ELSE IF LV 
<4 THEN Q=2 ELSE Q=3 

111f GET(Y,R)-(Y¥+15,R+1f) ,D,G 
1159 'MOVE 

1169 COLOR1,1:LINE(H,V) -(H+12, V+ 
9) , PRESET, BF 


1179 J(1)=JOYSTK(#) :J (2) =JOYSTK( 
1) : FR=PEEK (65289) 

1189 FORI=1T02:IF J(I)<=15 THEN 
X(I)=-5 ELSE IF J(I)>=55 THEN X( 
I)=5 ELSE X(I)=9 

1198 NEXT 

1209 H=H+X(1) :V=V+X (2) 

1219 IF H>=248 THEN H=249 ELSE I 
F H<=39 AND AB=9 THEN H=39 

1229 IF V<=29 THEN V=29 

1239 PUT(H,V) -~(H+15,V+19) ,C, PSET 
1249 IF PPOINT(H-1,V-1)=6 OR PPO 
INT (H+14,V)=6 OR PPOINT(H+14,V+1 

§)=6 OR PPOINT(H-1,V+19)=6 THEN 
3999 

1259 IF H<=39 AND AB=l1 THEN 4159 
1269 IF FR=254 OR FR=126 THEN GO 

SUB139$9 

1278 TI=TI+1:GOTO 1499 

1309 ‘FIRE 

1319 IF H<2$ THEN SOUND1,1:RETU 

RN 

1328 IF V<11$ THEN SOUND 1,1:RET 

URN 

1339 AB=1:COLOR4, 1: LINE (H+6,V+5) 

- (219,135) , PSET: SOUND259, 1: LINE ( 

H+6,V+5) -(219,135) , PRESET 

1349 DRAW"C5 ;BM219,159"+PLS$ (2) 
1359 RETURN 

1499 ‘ENEMY 

1419 IF AR=1 THEN 1469 ELSE AR=1 
1429 IF Q=1 THEN 1449 ELSE Z=RND 
(2) 

1439 N=179:IF Z=1 THEN X=9 ELSE 

X=-5 

1449 Z=RND(2):IF Z=1 THEN M=9 EL 

SE M=5 

14598 SOUND 19,1: Z=199:T=89 

1469 IF Q=1 THEN 1479 ELSE PRESE 
T(N,T) :N=N+X 

1479 PSET(Z,T,1) :Z=Z+M:T=T-5: PSE 
T(Z,T,2):IF Q>1 THEN PSET(N,T,2) 
1489 IF T<=25 THEN PSET(Z,T,1):P 
SET(N,T,1) :PSET(U,AA,1) :AR=9$:GOT 
01519 

1499 IF T<=V+8 AND T>=V THEN 159 

§ ELSE 1519 

1599 IF (Z<=H+15 AND Z>=H)OR(Q>1 
AND N>=H+15 AND N<=H) THEN 3999 
1519 IF Q<3 OR AB=1 THEN 1549 
1529 LINE(Y-5,R-5) ~-(¥+11,R+1$) ,P 
RESET, BF: Y=Y+ INT (LV/2) :H$=STRS§ (Y 
) : VS$=STRS§$ (R) : DRAW"C4 ; BM"+H$+", "+ 


V$+TS$ 

1539 IF Y+15>=219 THEN LINE(Y,R) 
-(Y+16,R+19) , PRESET: GET (Y,R) -(Y+ 
16,R+19) ,D,G:GOTO 3999 

1535 PLAY"V39$T801L16;C;D" 

1549 IF AR=1 THEN 1569 

1559 AA=RND(LV) :AA=119+ (AA*5) :U= 
193 

1569 PSET(U,AA,1) :U=U+5:PSET(U,A 
A, 4) 

1579 IF AA>=V AND AA<=V+19 THEN 

1589 ELSE 1159 

1588 IF U >=H AND U<=H+15 THEN 3 
$98 ELSE 1159 

2298 ‘LV3 

2919 R2=29:S2=119:TI=9:PCLS(1):R 
1=138:S1=179:HA=229: X=19: Y=169:H 
=45:V219: PH=3: AA=135: ZA=189: AR=9 
7 E=9 

2815 R3=135:S3=139 

2928 GET(28,28)-(35,35),D,G 

2938 DRAW"C2;BMS,49;R1PPBG1SG29R 
2PE1PSHIPBELPSF2PRIPF2SD1SL149G19D 
1PG1PD29CG1PD1LPRIPF1SR17GE28U1I PH 
25" 

2649 PAINT(19,199),2,2:PAINT(19, 
188) ,2,2 

2958 COLOR 4,1: FORI=1TOLV: LINE(2 
28,15+(1I*5))-(239,15+(1*5)) , PSET 
: LINE (229,85+(1I*5) )-(239,85+(1#5 
)),PSET 

2068 NEXT 

2978 PUT(H,V)-(H+16,V+1$) ,C,PSET 
2988 DRAW"C2;BM5#,119;D2PR1PGE29 
L126": PAINT (69,125) ,2,2 

2198 'MOVE 

2119 PUT(H,V)-(H+16,V+19) ,D 

2129 J(1) =JOYSTK(§) :J (2) =JOYSTK( 
1) 

2139 FORI=1T02 

2149 IF J(I)<=15 THEN X(I)=-5 EL 
SE IF J(1I)>=55 THEN X(I)=5 ELSE 

X (I) =$ 

2145 NEXT 

2159 H=H+X(1) :V=V+X(2) 

21698 IF V>=149 AND H+16 <=35 THE 
N 4979 

2179 IF PPOINT(H-1,V)=6 OR PPOIN 
T(H-1,V+18)=6 OR PPOINT(H+14,V)= 
6 OR PPOINT(H+14,V+19)=6 THEN 39 
Lp 

2189 IF V<=9 THEN V=5 

2198 IF H<=18 THEN H=19 

2268 PUT(H, V) -(H+15,V+1$) ,C, PSET 
22198 TI=TI+1 

2258 ‘ENEMY 

2269 IF AR=1 THEN 2399 

2279 AR=1:IF V<=39 THEN 2289 ELS 
E 2299 

2288 T=218:M=(RND(LV) *5)+15:N=15 
$:GOTO 2399 

2298 T=218:M=(RND(LV) *5)+85:N=17 


2328 PSET(T,M,1) :T=T-3:PSET(T,M, 


2319 IF (H<=T AND H+15>=T) AND ( 
V<=M AND V+1$>=M) THEN 3f99 
2329 IF T<=N THEN AR=$:PSET(T,M, 


2338 IF LV >=3 THEN 2349 ELSE 21 


2348 PSET(R1,S1,2):R1=R1+1:IF Rl 
>135 THEN R1=138:S1=S1-1 
2359 IF LV>=4 THEN 2369 ELSE 219 


2369 PSET(R2,S2,2) :S2=S2+1:IF S2 
>115 THEN S2=119:R2=R2+1 
2379 IF LV >=5 THEN 2389 ELSE 21 


2389 PSET(R3,S3,2):R3=R3+1:IF R3 
>149 THEN S$3=S3+1:R3=135 

2399 GOTO 2199 

3999 ‘DEATH 

39f1 II=p 

3995 IF PH >1 THEN 3949 

3919 'LV1 

39268 DRAW"C5; BM"+H$+", "+V$+PLS(E 


) 

3939 FORI=159 TO 59 STEP-5:CIRCL 
E(H,I),5,3:CIRCLE(H,1I),5,5:NEXT: 
V=45:H=H-5 

3949 'LV1,LV2,LV3 

3959 FORJ=1T019:FORI=8 TOS STEP- 
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DISK UTILITY 








An Easy Way 
to Run Your 
Programs 


ow many times have you typed 
Hi: DIR and frantically hit the 

SHIFT-@ keys trying to find a 
program you wanted to run? Well, your 
troubles are over. Disk Menu takes all 
of your programs on a disk and displays 
them in a menu. Move the arrows over 
the program you want to run, press 
ENTER and away you go! 

Combined with Roger Schrag’s “A 
Special Use for me DOS Command” 
is a very easy =< of running your 
programs. Simply type in the program 
and save itas MENU, thenrun Dosstart 
and enter RUN” MENU” as the command 





The listing: DISKMENU 


'COCO DISK MENU 

29 '(C) 1985 ANDY DATER 

PMODE# : PCLEAR1 : CLEARS #99 

DIMT$(11,7) ,N$(68) , TP(68) 

59 CLS4:PRINT@9,"COCO DISK MENU" 
;:PRINT@47, "BY"; : PRINT@75, "ANDY 

DATER" ;: PRINT@1$3, "COPYRIGHT (C) 
1985";:PRINT@162,"PRESS §-3 FOR 
DISK DIRECTORY"; 

69 DNS=INKEY$: IFDN$<>"9"ANDDNS<" 
1"ORDN$>"3 "THEN6SELSEDR=VAL (DN$) 
79 PRINT@226,"READING DIRECTORY 

OF DRIVE "DNS; 

89 N=1:FORX=3TO11:DSKI$DR,17,X,A 
$,B$:C$=A$+LEFTS$ (B$, 127) :FORI=$T 

07: T$(X,I)=MID$(C$,1*32+1,32) :Cl 

=ASC(T$(X,1I)) :IFCl=255THEN1PPELS 

EIFC1=$THEN9 SELSENS (N) =LEFTS (TS ( 

X,I),12}:TP(N) =ASC(MID$ (T$(X,I), 


i 
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By Andrew Dater 


to be executed upon typing DOS. It sure 
is a keystroke saver! I put it on all of 
my disks, especially my RAINBOW ON 
TAPE disks. I just type in DOS and get 
a menu of the programs from THE 
RAINBOW all ready to run. Disk Menu 
only takes up one granule on the disk, 
so with it and the DOS command, you 
can save yourself a lot of typing with the 
sacrifice of only two granules. 

When you run the program, you are 
prompted to enter the drive number. 
Just press 0-3 without pressing ENTER 
and Disk Menu loads the directory 
from the disk to memory. You are then 
presented with a menu of the programs 


12, 14): N=N+1: IFN=69THEN19# 


fr, NEXTI,X 


10 N=N-1: FORX=1TON:N$ (X) =LEFTS ( 
N$(X),8) +". "4+MID$ (NS (X) ,9,3) :NEX 
T 


CLS 

IFN<=3STHENPP=1:N1=N 
IFN>3STHENPP=2:N1=39 
IFN>6$THENPP=3 :N1=36 
FORX=1TON1: PRINT" "N$(X),:NE 


119 
129 
139 
149 
159 
XTX 
169 IFPP=2ORPP=3THENPRINT@489,"P 
RESS <M> FOR MORE..." 

176 LS=">":RS="<"; pags y= 

189 PRINT@P, LS; : PRINT 13,R$; 
199 FORX=338T0345: POKEX, 255:NEXT 
X 
299 
219 
049 
228 
238 
242 
258 
268 
278 


IFPEEK (338) =191THEN399 
IFPEEK (339) =191THENCLEAR: GOT 


IFPEEK (341) =247THEN359 
IFPEEK (342) =247THEN3 69 
IFPEEK (343) =247THEN379 
IFPEEK (344) =247THEN389 
IFPEEK (344) =254THEN299 
IFPEEK (343) =253THEN3 $8 

289 GOTO299 

298 CLS: PRINTFREE(DR) "FREE GRANU 
LES ON DRIVE"DR: PRINT: PRINT" PRES 
S ANY KEY TO CONTINUE": EXEC44539 
:GOTO119 

398 IFPP=2ANDY=1THENCLS: FORX=31T 
ON: PRINT" "NS$(X),:NEXT: PRINT@489 
,"PRESS <M> FOR MORE...";: Y=2: P= 
P:N1=N-39:GOTO189 
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on your disk. Use the arrow keys to 
move the “> <” symbols over the pro- 
gram you want to run and press ENTER. 
The arrow keys repeat, so if you just 
want to move the pointers one space, be 
sure to release the arrow key quickly. If 
there are more than 30 programs on 
your disk, they will not fit on one screen, 
so press ‘M’ (for “more”) to switch 
between screens” To switch disks or 
drives, press CLEAR to restart the pro- 
gram. 

You can also get the free granules on 
your disk very easily: press ‘F’ and it 
displays how many are free. Press any 
key to get back to the menu. 


319 IFPP=2ANDY=2THENY=1: 
g:GOTO119 

329 IFPP=3ANDY=1THENCLS: FORX=31T 
O061:PRINT" "NS$(X),:NEXT: PRINT@48 

g,"PRESS <M> FOR MORE...";:Y=2:P 

=$:N1=N-59:GOTO18¢ 

339 IFPP=3ANDY=2THENCLS: FORX=62T 

ON: PRINT" "N$(X),:NEXT: PRINT@489 
,"PRESS <M> FOR MORE...";:Y=3: P= 

$:N1=N-61:GOTO189 

348 IFPP=3ANDY=3THENY#=1: P=9:N1=3 

g:GOTO119 

359 IFP<17THEN18SELSEP=P-32: PRIN 

T@P+32," ";:PRINT@P+45," "3; 3:GOTO 
186 

369 IF P/16=>(N1-2) THENIO9SELSEP= 
P+32xPRINT@P-32," ";:PRINT@P-19, 
Woes 01898 

379 P=P-16: IFP<STHENP=9: GOTO18$E 

LSEPRINTEP+16," "::PRINT@P+29," 

;:GOTO189 

389 IF P/16=>(N1-1) THEN1LOSELSEP= 

P+16:PRINT@P-16," ";:PRINT@P-3," 
": $GOTO189 

398 F=P/16+(Y-1) *39+1:FS=N$ (F)+" 
>"4+DN$:TP=TP(F) 

499 CLS 

419 IFTP=STHENLOADFS,R 

428 IFTP=2THENLOADMFS : CLEAR299: P 

OKE&HFF49,8:EXEC:END 

439 CLS:PRINT"IS FILE: "F$" A BA 

SIC": PRINT" PROGRAM? (Y/N)" 

449 IS=INKEYS$: IFI$="Y"THENLOADFS$ 
,R ELSEIFI$="N"THENCLEAR2§9 : ENDE 

LSE449 a 
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SOUND TUTORIAL 
Producing sounds without the PLAY or SOUND commands 


Further Adventuring 


Into Sound 
I.xperimentation 


16K om. 
ECB P| RAINBOW 











By Bill Bernico 


(Editor’s Wote: This article is an 
addendum to "An Adventure Into Sound 
Experimentation,” which appeared in the 
December 1985 edition, Page 35. For more 
complete information, please refer to this 


previous article.) 


alf the fun of programming is trying 

to discover the unusual, the bizarre 

and the humorous. I think I’ve 
combined all three elements in Sound Story 
2, a continuation of my original Sound 
Story program. The significant difference 
with this installment is that it doesn’t 
use any SOUND or PLAY commands. fThat’s 
right, there’s another way to generate 
sounds - one I[ stumbled on purely by 
accident. 
leads to some of the best ideas. 

In order to generate the odd sounds 
contained in this program I had to POKE 
values into memory. By trial and error, I! 
found the combination of values that were 
right for each sound. I had some help 
finding these values, though, in the form 
of the second program listing, Random 
Sound Generator. With it, you can hear 
randomly created sounds and see the values 
that went into making up the sound. 

From there you can jot down the values 
and insert them into the proper slots in 
the main progran. 

If you’d like to make up your own sounds, 
be it for part of a program or a 
Benu-driven sound selection such as SS2, 
first run RANDOM SOUND GENERATOR. 
Immediately you’ll hear an odd_ sound, 
fcliowed by a listing like this: 


March 19766. 


Remember, experimentation often 
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Number of times (N)=2 

Duration value (D) =88 

Start Address (S) =1327 

Ending Address (E)=2784 
The number of times is fixed at '2', but 
the duration, start address and end 


address are randon. The values for ’N’ 
and ’D’ can be from 255. The start and 
end addresses can be any value up to 


65,536. Keep this in mind when you use 
values from here for your program. The 
difference between the ’S’ and 'E’ values 


is restricted to a maximum of 3,000 simply 
because it might randomly generate a start 
address of, for example, 123, and an end 
address of 65,000 with a duration of 255. 
You coud wait a long time to hear that 
kind of sound played twice (the value of 
"N’). 


THE MAIN PROGRAM 

I purposely stayed away from sounds you 
might hear in any run-of-the-mill program 
and instead created some unusual sounds 
from which to pick. When the menu page 
appears, simply press any number key from 
1-9 to hear a sound or press ’E’ to end 
the program. Each sound selection features 


a short description of what you're 
hearing. 
The idea behind selection number '9’ is 


just what it says. It’s randomly selected 
sound that can be named whatever you like. 
Unless you select number ’9’ 3,000 times, 
chances are you won’t hear the same sound 
twice. Sometimes it’s short and barely 
audible and sometimes it’s 10 seconds 
long, so listen closely for it. 
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Listing 1: SOUND 2 


16 'SOUND STORY 2 (THE SEQUEL) 
28 'BY BILL BERNICO 

36 '798 MICHIGAN AVE. 

49 ‘SHEBOYGAN, WI 53981 

56 '(414) 459-7359 

60 ' 

76 DATA 16,196,63,8,19f,63,3,166 
,128,72,72,183,255,32,141,12,31, 
16,179,63,5,38,249,49,63,38,233, 
57,182,63,2,74,38,253,57 

89 FOR I=16135 TO 16169 

99 READ A 

199 POKE I,A 

119 NEXT I 

126 DEFUSR#=16135 

138 POKE 65281, (PEEK(65281) AND 
247) 

146 POKE 65283, (PEEK(65283) AND 
247) 

158 POKE 65315, (PEEK(65315) OR 8 


169 CLS:PRINT@3,"SOUND STORY 2 ( 
THE SEQUEL) 

179 PRINT@75,"selections: 

189 N=%$:D=9:S=9: E=9 

199 PRINT@128,"1. 78 RPM RECORD 


SCRATCHING 
206 PRINT@169,"2. WILD AMINAL MA 

TING CALL 

216 PRINT@192,"3. SOMEONE DIALIN 
G '555! 

226 PRINT@224,"4. FRONT DOOR BUZ 
ZER 

230 PRINT@256,"5. WILLIE WONKA'S 
FACTORY 

249 PRINT@288,"6. A PEG-LEG CENT 
IPEDE 

258 PRINT@329,"7. DEATH RAY SPAC 

E GUN 


268 PRINT@352,"8. 
D HUMMINGBIRD 
278 PRINT@384,"9. 
AME IT 

286 PRINT@448,"SELECT (1-9) OR e 


NUCLEAR POWERE 


(RANDOM) YOU N 


298 AS=INKEYS:IF AS=""(HEN 299 
309 IF AS="E"THEN CLS:END 

319 M=VAL(AS):ON M GOTO 339,348, 
3598,368,378,382,398,402,41f9 

328 GOTO 299 

33 CLS:PRINT@132,"A 78 RPM PHON 
OGRAPH NEEDLE AT THE END OF 
THE RECORD." :N=6:D=33:S=56789:E 
=69900:GOTO429 

349 CLS:PRINT@132,"IT'S THE MATI 
NG CALL OF PURPLE-BELLIE 
D, FRILLY- CROWNED, 3-TO 
OTH SNIPE.":N=6:D=143:5=44;E=999 
:GOTO429 
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359 CLS:PRINT@139,"THIS IS WHAT 
IT SOUNDS LIKE FROM YOUR END 
WHEN YOU DIAL 1555! ":N=3:D 
=199:S=888 ; E=2222:GOT0422 
369 CLS:PRINT@132,"IT COULD ALSO 
BE THE BACK DOOR BUZZER." 
:N=255:D=2:S=11:E=111:GoT0429 
379 CLS:PRINT@132,"YOU'RE INSIDE 
THE FACTORY WHERE THEY MA 
NUFACTURE THE EVERLASTING G 
OB STOPPERS! ":N=19:D=33:S=333:E= 
3333:GOTO429 


386 CLS:PRINT@132," | READY...MA 
RCH. LEFT, RIGHT, RI 
GHT, RIGHT, LEFT, RIGHT, RI 
GHT, RIGHT, LEFT, RIGHT, RI 


GHT, RIGHT... ":N=8:D=198:S=899:E= 
2334:GOT0O42¢ 

398 CLS: PRINT@132,"YOU JUST GOT 
ZAPPED BY COMMANDER COM 

MOTION OF THE 33RD STAR 
FLEET! ":N=35:D=44:S=66:E=444:GO 

TO429 

496 CLS:PRINT@132,"IF THERE WAS 
SUCH A THING, THIS IS WHAT 
IT WOULD SOUND LIKE...OR WOU 
LD IT?":N=77:D=7:S=77:E=777:GOTO 
420 

419 CLS:PRINT@132,"WHAT THE HECK 
WAS THAT?" :;N=2:D=RND(255) :S=RND 
(3999) :E=RND(3929)+S 

426 POKE 16128, INT(N/256):POKE 1 
6129,N-INT(N/256) *256 

436 POKE 16136,D 

449 POKE 16131,INT(S/256) :POKE 1 
6132,S-INT(S/256) *256 

4568 POKE 16133,INT(E/256):POKE 1 
6134, E-INT(E/256) *256 

4668 A=USRG(f) 

478 GOTO 169 


Listing 2: SOQUNDGEN 


19 'RANDOM SOUND GENERATOR 

26 'USED TO PRODUCE SOUNDS IN 
SOUND STORY 2 (THE SEQUEL) 

39! 

49 DATA 16,19%,63,9,199,63,3,166 

,128,72,72,183,255,32,141,12,31, 

16,179,63,5,38,249,49,63,38,233, 

57,182,63,2,74,38,253,57 

59 FOR I=16135 TO 16169 

69 READ A 

79 POKE I,A 

88 NEXT I 

9% DEFUSR#=16135 

199 POKE 65281, (PEEK(65281) AND 

247) 

118 POKE 65283, (PEEK(65283) AND 

247) 

12 POKE 65315, (PEEK(65315) OR 8 


) 


continued on Page 18 
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The last of a four-part series on operating 


with this BBS software 


CoBBS: 


How to Modify the Program 


to Use the CoCo ‘Serial Port’ 


ritten for use with the RS-232 
Wi: CoBBS takes advantage 

of it being a true serial port. 
The “serial port” on the back of the 
CoCo was designed as a printer port, 
but through the miracle of software can 
be used as a communications port (but 
still not a true RS-232 port, just voltage 
compatible). CoBBS can be modified to 
use the serial port, but it loses a lot of 
its features, including advanced key 
input, no pausing or stopping while a 
message or file is being displayed, no 
uploads, no 1200 Baud, slower opera- 
tion and awkward termination of a call. 

If I sound pessimistic about serial 
Operation using the serial printer port, 
Iam! We will discuss briefly some of the 
modifications required to convert 
CoBBS and its operation. You will have 
to do the installation depending on your 
needs. I strongly suggest obtaining an 
RS-232 Pak if you are serious about 
running this BBS software, but for 
those who want to experiment. . . here 
we £0. 

Changing CoBBS over to the serial 
port requires modification of the serial 
driver and all the BASIC routines. The 
main difference is that the serial version 
pauses anytime it is polled and waits for 
a character, where the Pak returns a 
















The listing: LOADER 


18 'THIS ROUTINE WILL LOAD IN 

29 'COTERM/BIN, MODIFY IT FOR 

39 'THE SERIAL PORT AND SAVE 

49 ‘THE MODIFIED VERSION OUT TO 
59 'DISK. this routine will 

68 ‘overwrite the original versi 


7§ LOADM"COTERM" 

88 A=4249 

99 READ D$:IF D$="END" THEN 119 
188 POKE A, VAL(D$) :A=A+1:GOTO99 
212 SAVEM"COTERM/BIN", &HSESP, &H1 
2BF, &H1992 

12% CLS: PRINT@269,"COTERM/BIN MO 
DIFIED": END 

322 DATA 67,48,141,9,81,188,1,19 
4,329,569 

142 DATA 182,1,1983,167,141,8,218 
.152,1,194 
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CHR%(@) and returns to BASIC. Through- 
out the programs, the system jumps to 
the single key input routine of the driver 
to strip any extra character waiting to 
be received, making sure no extraneous 
character is in the buffer. 

The following lines of USER/SYS 
have the statement EXEC4314, or EX 
EC&H19DA, in them and should be 
removed: 40, 68, 70, 150, 180, D266, 
345, D1205, 1225 and D7035. If there 
is a‘D’ preceding the number, delete the 
whole line and replace it with a REM 
statement. The following lines in 
COBBS/SYS to change are: 410, 440, 
960, D975, 1005, 1270, 1345, 1420, 1465, 
2085, 2410, D7050 and 7057. 

The carrier detect routine must also 
be changed. The way to do this is to 
check the CD flag set via the serial port. 
The port should first be reset by the 
command K=PEEK(&HFF2@). Then, by 
monitoring the location of $FF21 for a 
change in state, you will know when a 
Carrier is coming in. The command 
CD=PEEK(&HFF21) checks the flag. If 
the value of ‘K’ is greater than 100, the 
system has detected a carrier. After 
detecting a carrier, again issue the 
command K=PEEK ( &HFF 29). From this 
point on the value of ‘K’ should be less 
than 100. If not, it means the last user 


15f DATA 175,141,9,212,182,1,196 
,167,141,2 

169 DATA 267,19f,1,197,175,141,2 
, 291,134,126 

179 DATA 183,1,196,183,1,193,48, 
141,9,36 

189 DATA 191,1,194,48,141,9,4,19 
1,1,197 

199 DATA 57,15,112,13,111,16,38, 
9,169,127 
269 DATA 
,3,38,2 
219 DATA 
,2,18,18 
229 DATA 
,15f,111 
239 DATA 
,129,13 
249 DATA 
13,32,115 
258 DATA 52,21,26,88,173,159,16f 
12,39,2 

268 DATA 32,36,182,255,34,71,37, 


255,64,59,98,141,44,129 
134,42,183,17,129,57,52 
18,18,18,18,18,18,18,18 
53,2,16,38,8,129,141,62 


38,6,134,19,141,54,134, 
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By Richard Duncan 


has dropped his carrier, this is a new 
caller and the system needs to be re- 
booted. The carrier detect subroutine 
for USER/SYS should read: 9700 * - 
COD CHECK-9705 IFPEEK(&HFF21)= 
18@ THEN CLOSE :RUN 9710 RETURN. In 
COBBS/SYS replace the RUN with 
LOAD’ USER/’SYS” ,R. 

Next, you must devise a way to hang 
up your modem when you want to 
terminate a call. This might be done 
with the “+++” and “ATH” with the 
Hayes modem, or through use of the 
cassette relay and the MOTOR ON/OFF 
command. This is done in the 9800's 
subroutine. 

The listing provided is used to load 
in COTERM/ BIN for the RS-232 Pak, 
convert it for the serial port and save it 
back out under the same name. You 
cannot use the C/R modification with 
the serial port version. It is hard to 
modify a big program to be used a 
different way from the way it was 
originally written. 

With some effort and patience you 
will be able to get a basic version of 
CoBBS running with the printer port. 
If you want the Pak version along with 
a documentation disk, send $25 to me 
at 2504 N. Gathings Drive, West Mem- 
phis, AR 72301. O 






242,141,84 

279 DATA 182,255,34,71,37,242,79 
,52,2,198 

288 DATA 7,141,69,182,255,34,18, 
71,192,96 

299 DATA 99,38,244,141,55,53,2,6 
8,53,149 

309 DATA 52,23,26,8f,246,255,33, 
193,189,38 

319 DATA 2,32,31,127,255,32,141, 
34,52,2 

329 DATA 198,8,19%,96,73,73,183, 
255,32,18 

339 DATA 141,2f,98,38,243,134,2, 
183,255,32 

349 DATA 141,8,5f,97,53,151,141, 
9,141, 

359 DATA 141,8,141,8,174,141,8,5 
,48,31 

369 DATA 38,252,57,8,182,126, 293 
,74,126,197 


378 DATA 143,13 
388 DATA END fl 





rdinarily, using RENUM is simple 
C= straightforward: You have 

been working on a BASIC pro- 
gram for some time, and additions and 
revisions have filled all the gaps between 
line numbers, yet another line needs to 
be inserted. A little work space at the 
beginning of the program would be 
nice, So your new start line becomes 100. 
You want to renumber from the start, 
and the present first line is ‘7’. Line 
increments of 10 keep things simple and 
leave room for new lines. So, you type 
RENUM 100,7,1@, and ENTER. 

If the program 1s just a few lines long, 
OK appears on the screen. If the pro- 
gram contains 300 lines, the processing 
takes a few seconds. In either case, the 
lines are renumbered. And, signifi- 
cantly, every GOSUB and GOTO is renum- 
bered to its new target line number. 

There’s nothing so unusual about 
that, but the CoCo’s method of renum- 
bering GOSUBs and GOTOs makes possi- 
ble quite a different use for the RENUM 
function. Suppose you have been devel- 
oping a program for some time. It has 
numerous branches; even the branches 
have branches. As you revise, reorgan- 
ize and consolidate program lines, you 
lose track of the GOSUBs, the GOTOs and 


their target lines. As you run the pro- 


(Fred Haberer teaches junior and senior 
high school English at WACO High 
School in Olds, Iowa.) 
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136 CLS 
=RND(392)+S 


6129,N-INT(N/256) *256 
168 POKE 16139,D 


6132,S-INT(S/256) *256 


6134, E-INT(E/256) *256 
198 A=USR@(f) 
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149 N=2:D=RND(255) :S=RND(322) :E 


159 POKE 16128, INT(N/256) :POKE 1 


178 POKE 16131,INT(S/256):POKE 1 §& 


188 POKE 16133,INT(E/256):POKE 1 & 


226 PRINT@6,"random sound genera 


a hy Pg ME. ind ie 
oe oe ° ed ad ‘ Pn 33 
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. . ~ 
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gram, UL (Undefined Line) Errors 
come up in frustrating profusion. 
RENUM is the answer to your problem — 
if you employ a special twist. 

When you enter RENUM 100,7,10, as 
in the example, the CoCo attempts to 
reconcile all GOSUBs and GOTOs with 
their target lines. If, in editing, you have 
deleted target lines (REM statements, for 
example, which never should have been 
GOSUB targets in the first place), a 
statement such as the following appears 
on the screen: UL 3766 in 550. Roughly 
translated, this means: “In Line 550, 
there is an instruction to go to Line 
3766, but no such line is in your pro- 
gram.” 

Now you know that newly designated 
Line 550 contains a GOSUB or GOTO 
targeted to Line 3766. Unfortunately, 
Line 3766 did not exist in the first place, 
and you haven't the slightest idea where 
it would be in the newly numbered 
sequence. If the program is a long one, 
you're better off reloading the original 
program and starting over. If only the 
CoCo could have identified those ULs 
before renumbering, you would have 
been saved hours of tracing and decod- 
ing. 

As it turns out, the CoCo can do just 
that, but you will have todo some minor 
subterfuge. Just ask the CoCo to do the 
impossible: tell it to renumber using a 
starting line number that doesn’t exist 
— a line beyond the range of your 
program. For example, your program 


218 PRINT: PRINT 

226 PRINT"NUMBER OF TIMES (N)="; 
238 PRINT"DURATION VALUE (D)="; 
249 PRINT"START ADDRESS (S)="; 
258 PRINT"ENDING ADDRESS (E)="; 


262 


PRINT@484,"HIT ANY KEY ‘TO DO 
ANOTHER" ; : EXEC44539 
278 GOTO 139 
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By Fredric M. Haberer 


starts on Line 10 and ends on Line 
15277. You tell CoCo to renumber 
starting at Line 16000; enter RENUM 
1600@,16000,1. (It’s important that 
both the start line and the new first line 
be numbered higher than the highest 
line in the program. Otherwise, you'll 
get an FC Error.) 

The CoCo first searches for line 
numbers that can’t be reconciled, then 
attempts to renumber. There is no Line 
16000 from which to start renumbering. 
Therefore, it gives up, dutifully lists the 
unreconciled lines and says, “OK.” 
There’s no error message, no cough and 
no sputter. CoCo has done its best to 
renumber as asked, and has instantly 
done a heap of work for you. On your 
screen appears the number of each line 
containing an unreconciled GOSUB or 
GOTO and the number of its target line. 

Your original line numbering remains 
intact. The tedious job of finding the 
errors is done. You now know which 
lines to list and edit. After you’ve made 
your corrections, if you still want to 
renumber, you may go ahead and do it. 

You might not have wanted to re- 
number in the first place. In this case, 
renumbering is a debugging tool that 
locates your UL problems, and keeps its 
“fingers” off of your numbering system. 

Of course, this procedure cannot 
identify incorrect target lines if the lines 
actually exist. However, it is a real 
headache-reliever in the case of a long 
program with holes in it. | 





HOME HELP 


By W.J. Moore_ 








The next time you exercise and would Like 
to have a companion, try "Robert the 
Robot.” He can exercise at any speed and 
never gets tired. You can adjust Robert’s 
speed by pressing the 'F’ key to go faster 
or by pressing the ’S’ key to go slower. 
Holding the key down does not work; press 
the key rereatedly. 

After typing in this program, use the 
RAINBOW Check Flus trcgram ‘see "Rainbow 
Info” for an expianticnon how tc use the 
Check Plus?>. You may a:sc type in the 
following in the direct ccmmand mcce to 


check if all DATA statements are entered 
correctly. 

CLEAR (ENTER) 

FOR [=1 TO 610: READ A: T=T+A: NEXT CENTER) 












The listing: ROBOCISE 


19 REM ROBOCISE BY W.J. MOORE - 
PITTSBURG CALF 

26 ' DISPLAY PICTURE 

38 PCLEARS 

49 L=PEEK(186) *256+PEEK(187) 

58 PMODE4: POKE179,32:PCLS 

68 CLS:PRINT@264,"BUILDING A ROB 
oT" 

76 PRINT@327,"ROBERT IS HIS NAME 
" 


89 N=L+19*32:GOSUB639 
99 N=L+21*32:GOSUB639 
1896 N=L+24*32:GOSUB63 
116 N=L+28*32:GOSUB639 
126 N=L+33*32:GOSUB639 
138 N=L+39*32:GOSUB639 


March 1986. 









Australian 


the 





RAINBOW 
foo co) 





PRINT T (CENTER) 


The value of 'T’ should equal 15177. lif 
it does not, then something is wrong in 
the DATA statements. It is important to 
have the correct data since the program 
would be wiped out. It is always wise to 
save what you have while debugging a 
program or else you may have to retype the 
entire program. 


Tt is recommended that all users’ enter 


~CLEARL 8 before running the program. This 


should resolve any differences between 
systems and/or ROM sets. Also, if you have 
a 32K 'D’ board CoCo, the program may not 
run the first time. If this occurs, simply 


try it a second time and it should run. 






N=L+46%*32:GOSUB639 
C=$:X=L+11:N=X:GOSUB499 
PCOPY1TO3 

















17% C=$:X=L+7:N=X:GOSUB499 
188 PCOPY1TO4 

198 PCOPY3TO1 

260 C=0:X=L+16:N=X:GOSUB499 
216 PCOPY1TO5 

226 C=$:X=L+1924:N=X:GOSUB499 


238 AS="" PRESS: F=FASTER S=SLOWE 


249 FORI=1TO LEN(AS$):TS=MID$(AS, 
I,1):T=ASC(TS) 

256 IF T<64 THEN T=T+64:MIDS(AS, 
I,1)=CHRS$(T) 

260 NEXT 

278 C=$:N=L+2884 

288 FORI=1TO LEN(A$) : T=ASC(MID$ ( 
AS,I,1)) 

298 FOR C=$TO5: POKEN+C*32,T:NEXT 
309 N=N+1 

319 NEXT 

320 L=PEEK(186) /2:A=65478 

330 FORP=ST06:N=INT(2“P) 

346 IF L AND N THEN POKE A+P*2+1 
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,@ ELSE POKE A+P*2,9 

359 NEXT 

360 N=PEEK(65314) : POKE65314,(N A 
ND 7) 

376 POKE65472,9: POKE65474,08: POKE 
65477,9 

389 X=50:PLAY"O1T29" 

398 PCOPY4TO1: PLAY"C+" : GOSUB449 
49% PCOPY3TO1: PLAY"C":GOSUB449 
418 PCOPY5TO1: PLAY"C+": GOSUB449 
426 PCOPY3TO1: PLAY"C": GOSUB449 
432 GOTO390 

449 FORI=1T0OX 

456 SP$=INKEYS 

469 IF SPS="F" THEN X=X-5 

479 IF SP$="S" THEN X=X+5 

489 NEXT: RETURN 

499 READ A,B 

509 IF A=-l THEN F=1 ELSE F=9 
519 IF A=-9 THEN 629 

520 IF A=-99 THEN 629 

539 A=A+127 

549 FOR I=1 TO B 

558 IF F=1 THEN 579 

568 POKE N,A 

576 N=N+32 

589 NEXT 

598 GOTO499 

606 C=C+1:N=X+C 

619 GOTO499 

626 RETURN 

638 FORI=9TO31:POKE N+I,223:NEXT 
: RETURN 

648 ' DATA FOR PICTURE 

659 DATA-1,12,89,14,128,2,123,2, 
-9, 

66% DATA-1,12,8,4,75,1f,123,4,- 
1,12,118,7,-9, 

678 DATA8£,9,-1,3,8f,12,128,1,8f 
,11,128,1,89,6,128,6,-9, 

689 DATA8#,1,48,2,8f,3,64,2,88,1 
,72,3,88,12,128,1,88,11,128,1,89 
,©,128,6,-9, 

699 DATA8Z,4,-1, ,80,2,64,1,8f,16 
,128,1,88,3,-9, 

709 DATA8G,1,48,2,80,3,64,2,8f,1 
,75,3,88,12,128,1,88,11,128,1,88 
,6,128,6,-9, 

719 DATA8%,9,7-1,3,88,12,128,1, 89 
,11,128,1,89,6,128,6,-9, 


720 DATA-1,12,89,4,79,19,118,4,- 


1,12,123,7,-9, 
736 DATA-1,12,89,14,128,2,118,2, 
-9, 

746 FORI=$T031: POKEN+I , 223:NEXT: 
RETURN 

758 DATA-99, 


769 DATA-1,12,118,1,-1,2,118,1,- 


9, 
776 DATA-1,12,128,4,-9, 


79% DATA-1,12,88,4,-9, 
866 DATA-1,16,1,3,96,1,1,1,96,1, 


a 
1,- 


c 
1,2,96,1,1,3,96,1,1,1,-9, 
819 DATA-1,16,1,3,96,1,1,1,96,1, 
1,2,96,1,1,3,96,1,1,4,96,1 
829 DATA1,1,118,6,1,5,96,1,1,2,- 


9, 

838 DATA-1,31,128,1,89,4,128,5,1 
,5,96,1,1,2,7~9, 

849 DATA-1,31,128,1,89,4,128,5,1 
,5,96,1,1,2,79, 

858 DATA-99, 

869 DATA-1,31,128,1,89,4,128,5,1 
,5,96,1,1,2,-9, 

879 DATA-1,31,128,1,89,4,128,5,1 
,5,96,1,1,2,7-9, 

888 DATA-1,16,1,3,96,1,1,1,96,1, 
1,2,96,1,1,3,96,1,1,4,96,1 

89% DATA1,1,123,6,1,5,96,1,1,2,- 
9, 
998 DATA-1,16,1,3,96,1,1,1,96,1, 
1,2,96,1,1,3,96,1,1,4,96,1,~-9, 
916 DATA-1,12,88,4,-9, 

929 DATA-1,12,128,4,-9, 

9328 DATA-1,12,123,1,1,2,123,1,79 


’ 

949 DATA-99, 

95@ DATA32,1,27,2,32,1,27,3,79, 
968 DATA32,1,71,2,32,1,27,1,22,1 
179, 

978 DATA27,4,-1,2,27,1,-9, 

989 DATA79,1,89,1,75,3,88,1,78,1 
79, 

999 DATA8$,2,-1,3,80,2,-9, 

1998 DATA-1,1,75,5,-9, 

1919 DATA64,1,59,2,64,1,59,2,64, 
1,79, 

1928 DATA64,1,54,2,64,1,54,2,64, 
1,79, 

1939 DATA-1,1,59,2,-1,1,59,2,-9, 
1049 DATA6,1,16,1,11,3,16,1,6,1, 
-9, 

1958 DATA16,2,-1,3,16,2,-9, 

1960 DATA~-1,1,11,5,-9, 

1978 DATA38,1,48,5,38,1,-9, 

1988 DATA48,1,7-1,5,48,1,-9, 

1999 DATA43,1,-1,5,43,1,-9, 

1199 DATA192,1,-1,5,192,1,-9, 
1119 DATA112,1,197,5,112,1,-9, 
1129 DATA-9, 

1132 DATA7%,1,89,2,7£,1,-1,1,88, 


114% DATA89,1,-1,2,88,1,72,2,82, 
1,-9, 

1158 DATA75,1,-1,3,75,2,7—9, 

1169 DATA128,1,123,2,128,1,123,2 
,128,1,-9, 

1179 DATA128,1,-1,2,128,1,-1,2,1 
28,1,-9, 

1186 DATA123,1,-1,5,123,1,-9, 


788 DATA-1,12,88,4,-9, 119% DATA-99, ~ 
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DISK UTILITY 








Gathering Up 








Scattered Programs 


hen I found I had several 
Wis with only a few pro- 
grams on each, I wrote File 

Search, a disk file “search and copy” 
utility. It seemed that every time I had 
a new idea for a program, I used a new 
disk. Although I still use the programs 
on the varied disks. most of them don’t 
require their own disk. especially the 
machine language programs. File 
Search allowed me to put them on disks 
sorted by program tvpe (BASIC. ma- 
chine language and data). Those with 
16K and only one drive will be happy 
to know that the program works fine on 
vour machine. If vou have two drives. 
the program will work taster because 
you don’t have to keep swapping disks. 
Here's how the program works: On 
Startup, the program asks which 1s the 
source drive and which is the destina- 
tion. If you only have one drive, answer 
‘0’ to both prompts. If you have more 
than one drive, you can use any single 
valid drive in your system, or any two 
drives from ‘0’ to ‘3°. Next, CoCo asks 
which type of file you want to copy or 
if you want to copy all files from the 
source disk. If you want to copy all your 
BASIC files, but have some of them saved 
as ASCII files, don’t worry. They’re still 




























The listing: F ILESRCH 


2 '* LINES $ THROUGH 9% AND ALL 
REMARKS LINES CAN BE DELETED WIT 
ROUT 

> 't AFFECTING PROGRAM OPERATION 
z '* SINCE I'M PROUD OF THE PROG 


I'D RATHER YOU LEFT LINES 
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By Pete Eichstaedt 


identified as BASIC programs. Once the 
questions have been answered, CoCo 
takes off and does the rest. The only 
interaction required is if only one drive 
is being used and a disk swap is re- 
quired. 

As the program runs, it reads the 
source disk directory, then checks the 
target disk directory to see if the pro- 
gram is there already. This saves the 
dreaded AE Errors common in copying. 
A message is displayed to show which 
file is being checked. You might see a 
comparison check being made on a file 
that doesnt look nght. This 1s probably 
trom a killed file. but don’t worry — if 
the file isn't there, it can’t be copied. If 
a file of the same name and format 
exists on both disks, it won’t be copied, 
either. A message is displayed when a 
file is transferred. 

When the copy is complete, CoCo 
asks if you want to transfer files from 
yet another disk. This keeps up as long 
as you answer “yes” and as long as the 
disk has room. If you run out of room 
while a copy is in progress, the program 
crashes with a DF Error — Disk Full. 
This is an acceptable concession when 
compared to having to type each COPY 
command manually. 


RaKKAEN 

26 PRINT " * FILESRCH - DISK 
FILE *" 

36 PRINT " * COPY ROUTINE FOR 
THE *" 

4f PRINT " * COLOR COMPUTER W 
/16K *" 

59 PRINT " * BY PETE EICHSTAE 
Dr x" 

6f PRINT " * APT D-398 

aM 

65 PRINT " * 2945 PRENTISS DR 
IVE #" 

76 PRINT " * DOWNERS GROVE, I 
L zk 

75 PRINT " ‘ 695 
16 . a 

89 PRINT " RkkhkkkkeekkreeekkKAE 
khkkaki 


99 '* CLEAR AND ALLOCATE STRING 
SPACE 

95 GOTO 3699 

199 CLEAR 1699:DIM PG$(72):DIM P 
P$ (72) 


Australian RAINBOQU 


When all the files are copied, answer 
“no” to the “search another disk” 
prompt. When you key in ‘N’, CoCo 
performs a cold start, just like on power 
up. If you just want to stop, change Line 
1800 to CLOSE :END. 

Of special note to single drive users: 
The program changes your selected 
single drive to the default drive for the 
system. As well, when disk changing 
prompts are displayed, a tone is gener- 
ated to get your attention. Two tones 
are used: A low tone is emitted for 
required disk changes in the program 
proper: a higher tone is emitted when 
the BASIC system’s COPY command is 
executed. If you don’t change disks in 
the order requested, you get either an 
NE Error from the target disk not 
having the source program, or an AE 
Error from the source disk in the drive 
when CoCo is looking for the target 
disk. 


If you don’t get RAINBOW ON TAPE 
and have to type the program in man- 
ually, you can leave out all REMark (’*) 
lines and lines 10 through 80. Sugges- 
tions and questions can be sent to me 
at the address at the start of the program 
listing. 


299 INPUT "WHICH IS INPUT DRIVE" 
;ID$:ID = VAL(ID$):IF ID <g OR I 
D > 3 GOTO 2599 
399 INPUT "WHICH IS OUTPUT DRIVE 
":OD$:0D = VAL(OD$):IF OD <# OR 
OD > 3 GOTO 2599 
599 PRINT "WHICH FILE TYPE SOULD 
BE SOUGHT":PRINT " § = BASIC P 
ROGRAM": PRINT " 1 = BASIC DATA 
FILE":PRINT " 2 = MACHINE LANGU 
AGE PROGRAM":PRINT " 3 = TEXT E 
DITOR SOURCE FILE" 
519 LINE INPUT " 4 = ALL ";FTS: 
:IF FT$ <"g" OR FTS >"4" GOTO 59 


g 

529 FT = VAL(FTS) 

559 IF ID <> OD THEN SOUND 59,3: 
PRINT "PUT SOURCE DISK IN DRIVE" 
;ID: INPUT "AND PRESS <ENTER>";Z$ 
599 '* EACH DISK HAS 9 SECTORS F 
OR RECORD ENTRIES 

669 FOR S = 3 TO 1l 

698 '* CLEAR THE PROGRAM RECORD 
COUNTER 
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PROGRAMMING UTILITY 





By John Galus 


f you write BASIC programs that use 
a lot of data or long tables, such as 
in an Adventure game, you know 
how long it takes a program to search 
for a particular data item. Here is a 


short machine language routine called 
Quick Restore that allows you to res- 
tore to a specified line number. 

As you may know, the RESTORE 
command permits repetitive use of the 
same data. It does this by resetting the 
data item pointer in $33 to the begin- 
ning of your BASIC program. Whenever 
a READ command is performed, the 
interpreter looks through the entire 
BASIC program until it finds a DATA 
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799 PG = $:IF ID = OD THEN CLS:S 
OUND 5f,3:PRINT "PUT SOURCE DISK 
IN DRIVE";ID:LINE INPUT "AND PR 

ESS 'ENTER'";2$ 

799 '* READ THE DIRECTORY SECTOR 
S 

899 DSKI$ ID, 17, S, DR$(1),DR$( 
2) 

899 '* IDENTIFY THE STRING TO MA 
NIPULATE 

999 FOR H = 1 TO 2 

999 '* EACH RECORD HAS 32 BYTES 
199% FOR EN = 1 TO 128 STEP 32 
1999 '* INCREMENT THE COUNTER 
1189 PG = PGtl 

1199 '* WE ONLY NEED THE FIRST 1 
2 BYTES OF EACH RECORD 

1195 '* BYTES 1-8 HAVE THE NAME, 
9-11 THE EXTENSION, AND 12 HAS 

THE FILE TYPE 

1299 PG$(PG) = MID$(DR$(H) ,EN,12 


1219 '* IF THE FIRST BYTE IS $9 

THE RECORD WAS KILLED, GET THE N 

EXT RECORD 

1259 '* IF THE FIRST BYTE IS $FF 
THERE ARE NO MORE ENTRIES (UNLE 

SS YOU HAVE SOME WEIRD PROGRAM N 

AMES) 

1269 IF LEFT$(PG$(PG),1) = CHRS( 
255) GOTO 1599 

1299 '* CHECK THE FILE TYPE. IF 
IT MATCHES, PROCEED, ELSE GET N 

EXT RECORD 

1369 IF RIGHTS(PG$(PG),1) = CHRS 
(FT) THEN GOSUB 1999 ELSE IF FT= 

4 GOSUB 1999 

1399 '* GET NEXT ENTRY, CURRENT 

STRING, SECTOR 

1499 NEXT EN, H, S 

1499 '* TRY AGAIN? 

1599 CLS 
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wick 





Restore 


statement, a somewhat slow process. 
This machine language program gets 
the line number (in the variable LN) 
passed by the USR function and stores 
it in $2B. Then the line search routine 
is called at SADO1. If this line 1s found, 
the address pointed to by Register X 1s 
bumped back by one and stored in $33. 
If the line number is not found, a 
RESTORE is performed to the next 
higher numbered line in your program. 
I have included a short program to 
illustrate the usefulness of this routine. 
It is written for a 32K Extended BASIC 
computer, but it is relocatable and will 
work on any size machine you have. 


1699 INPUT "SEARCH ANOTHER DISK" 
;YN$ 

1796 IF LEFT$(YN$,1) = "Y" OR LE 
FT$S(YN$,1) = "y" THEN CLS:GOTO 2 
LD 

179% '* CLOSE OPENED FILES AND P 
ERFORM A COLD START. REPLACE WI 
TH "CLOSE:END" TO STOP COLD STAR 
T 

1899 CLOSE:POKE 113,8:EXEC &HA@2 
7 


1898 '* PUT A "." BETWEEN THE NA 

ME AND EXTENSION (SAME AS A "/") 
1996 OPS = LEFTS$(PG$(PG) ,8)+". "+ 

MIDS (PG$(PG) ,9,3) 

1919 IF G<=l THEN GOTO 2699 ELSE 
GOTO 2639 

1998 '* IF YOU'RE ONLY USEING ON 
E DRIVE, MAKE SURE IT'S THE DEFA 

ULT DRIVE 

2989 IF ID = OD THEN DRIVE ID 
2838 PRINT:PRINT "COPYING ";OPS; 
" TO DRIVE";0D 

2959 IF LEFTS(PG$(PG),1) = CHRS$( 

9) GOTO 2399 

2698 '* IF YOU'RE USING TWO DRIV 
ES, COPY FROM THE INPUT DRIVE AN 
D TO THE OUTPUT DRIVE 

2199 IF ID <> OD THEN COPY OPS$+" 
:"+RIGHTS(ID$,1) TO OP$+":"+RIGH 

T$(OD$,1) ELSE COPY OP$ 

2199 '* IF YOU'RE USING ONLY ONE 
DRIVE, PROMPT DISK SWITCH 

2298 IF ID = OD AND PG <= 1 THEN 
CLS:PRINT “INSERT SOURCE DISKET 
TE AND PRESS 'ENTER'";:SOUN 
D58,3:LINE INPUT NX$ 

2298 '* GET THE NEXT RECORD 

2389 RETURN 

24968 END 

2498 '* IF YOU MESS UP, COCO TEL 
LS YOU AND RESTARTS 

2599 CLS 4:SOUND 16f,1:SOUND 159 
,1:SOUND 199,1:PRINT @ 232, "INV 
ALID DRIVE!";:FOR X = 1 TO 199: 
NEXT:CLS:GOTO 269 
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The listing: RESTORE 


'QUICK RESTORE 

'JOHN GALUS 

'55 WILKESBARRE AVENUE 
'LACKAWANNA, NEW YORK 14218 
CLEAR1$, &H7FEF 

CLS : X=&H7FFQ : DEFUSRS=X 

READ A: IF A=-99 THEN 59 

POKE X,A:X=X+1:GOTO39 
INPUT"ENTER ROOM NUMBER 1-4"; 





66 LN=9$+NU*19 

78 Z=USR@ (LN) 

89 READ AS$:PRINTAS:GOTO5# 

99 DATA 189,179,237,221,43,189,1 
73,1,158,71,48,31,159,51,57,-99 
199 DATA ROOM ONE 

119 DATA ROOM TWO 

129 DATA ROOM THREE 

139 DATA ROOM FOUR i 





2559 '* SHORTSTOP OVERFLOW INTO 

THE NEXT ROUTINE 

2569 '* IF IT GETS HERE IT DOESN 
'T BELONG ... END! 

2599 END 

2595 '* CHECK FOR SINGLE DRIVE 0 

PERATION 

269% IF ID = OD THEN CLS:SOUND 5 

9,1:PRINT "INSERT DESTINATION DI 

SKETTE IN DRIVE";0D;:LINE INPUT 
"AND PRESS 'ENTER!";2$ 

2628 '* SEE IF FILE ALREADY EXIS 

TS 

2638 PRINT:PRINT "CHECKING DESTI 

NATION DISKETTE": PRINT "FOR ";OP 

$:PRINT "TO PREVENT <AE ERROR>" 

2659 PP=9: FOR SS = 3 TO 1l 

2799 DSKI$ OD,17,SS,CK$(1) ,CK$(2 


FOR HH = 1 TO 2 

FOR EE = 1 TO 128 STEP 32 
PP = PP +] 

PP$(PP) = MID$(CK$(HH) ,EE,1 


IF PP$(PP) = PG$(PG) THEN R 


3225 IF LEFT$(PP$(PP),1) = CHRS$( 
255) GOTO 3352 

3259 PPS(PP) =" 

3309 NEXT EE,HH,SS 

3339 '* IF YOU GET THIS FAR, THE 
FILE MUST BE COPIED 


3349 '* CHECK FOR SINGLE DISK OP 
ERATION, THEN CALL THE COPY ROUT 


3358 IF ID = OD THEN CLS:SOUND 5 

$,1:PRINT “INSERT SOURCE DISK IN 
DRIVE";ID: LINE INPUT "AND PRESS 
"ENTER!" 3Z$ 

3496 GOTO 2999 

3459 '* SHORTSTOP RUNAWAY OPERAT 

ION 

3599 END 

3559 '* CLEAR AS MUCH MEMORY AS 

YOU CAN THROUGH BASIC 

3696 PCLEAR 1:GOTO 19 





TAPING TUTORIAL 


The Secret to Loading Those 
Double-Speed Tapes 


By Craig Carmichael 


ave you got lots of long files to 
Hex and CSAVE? Or, have 
you accidentally taped your 
favorite game at double speed? Anyone 
who is familiar with the Color Compu- 
ter, and whose POKE 65495, works, Is 
probably also familiar with the double- 
speed CSAVE. These individuals also 
Know that a simple POKE 65495,@, 
unfortunately, does not enable them to 
load the tapes back into the computer. 
The problem is this: POKE 65495, 
takes the Color Computer from “slow” 
(normal) clock mode to “address- 
dependent’’ mode. In address-de 
pendent mode, the computer runs at 
normal speed when the memory being 
accessed is RAM, from zero to 32767, 
and at double speed when accessing 
ROM, 32768 and up (BASIC, Extended 
BASIC). During a CSAVE, there aren’t 
many calls to RAM, so the operation is 
nearly double speed. However, CLOAD 
makes considerable use of RAM, and 
thus does not operate at the same speed 
as the CSAVE. The exasperating thing is 
that double-speed tapes are perfectly 
good! All we need is a way to load them. 
The first method I tried involved 
connecting my tape recorder’s drive belt 
to a variable speed electric drill and 
running the tape recorder at my guess 
of half speed! As an emergency meas- 
ure, it had its merits, working about one 
time in four with a steady hand, but this 
is not the method I shall detail here. 


My next idea was to rewrite the 
cassette routines as machine language 
utility programs, which could be run as 
much as three times as fast as the regular 
ones, but luckily, other commitments 
and procrastination eliminated this 
idea. 

Then I got a copy of The Facts for 
the TRS-80 Color Computer (a techni- 
cal book by Spectral Associates, $15.95) 
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and browsing through it, I noticed an 
overlooked detail. Memory Locations 
8F, 90 and 91 Hex in RAM determine 
the width of pulses the computer ac- 
cepts as a ‘0’ or a‘l’ from the tape. So, 
here is the priceless secret: After you 
POKE 65495,0, POKE 143,15:POKE 
144,20:POKE 145,27 and all those 
double-speed tapes will load perfectly! 

Too many people buy disk drives 
because cassettes are slow to use, with- 
out realizing that the full speed of the 
Cassette is not exploited. The cassette 
interface on my homemade computer 
runs at 4.5K Baud, three times the 
regular speed of the Color Computer’s. 

I usually program in machine lan- 
guage, and I have now incorporated the 
double-speed cassette functions as an 
automatic feature of my assembly edi- 
tor and as an optional feature of my test 
editor for saving lengthy files. I have 
had no I/O Errors using double speed, 
except with a bad tape. There is, of 
course, less possibility of running over 
a bad section of tape since the programs 
save in a Shorter time! 


Comments 
1) To recap: When recording, simply 


use POKE 65495,@ “DOUBLE SPEED 
POKE”, and when loading, use POKE 
65495,@ with POKE 143,15:POKE 
144,20:POKE145,/7. 

2) If your computer doesn’t work in 
address-dependent mode, see Page 78 in 
the January 1983 RAINBOW for ideas on 
how to get it running. 

3) To get back to regular speed load- 
ing without turning off the computer, 


POKE 65494,@:POKE 143,18:POKE 
1944,24:POKE 145,19. 


4) If your tapes don’t load flawlessly, 
you could try POKE 146,1 (or more) 
before you record to increase the length 
of leader tape sent at the start of each 


Australian RAINBOW 


block, since this is the most common 
trouble spot with any tape. Next, tape 
recorders that have a manual record 
level adjustment make better quality 
recordings than those with ALC record 
levels. 


5) You could also try changing the 
POKE values at 143, 144 and 145. The 
values given are simply the first ones 
that gave me good results. 

6) If all else fails, get a couple of 
adapters and hook up your stereo 
cassette deck. I confess to using an 
AKAI CS-34D at all times, which 
means I am only guessing about 
whether many people will have trouble 
with portable tape recorders at the 
higher speed. 


Rules 

1) Use double speed only for your 
personal tapes. Even if others know 
how to load a tape at double speed, they 
won't be expecting to receive a tape in 
this format. The regular speed is stand- 
ard. 

2) Clearly indicate on the cassette 
label “FAST” when you have recorded 
a tape at double speed. 


Due to speed differences between 
cassette recorders, the POKE values may 
have to be adjusted a bit if a program 
is CSAVEd on one unit and CLOADed with 
another model of cassette recorder. 

There you have it! So simple, yet such 
a timesaver if you do a lot of CSAVEing 
and CLOADing, and a lifesaver if you’ve 
accidentally saved a tape at double 
speed. 


(You may write to the author with any 
questions at 820 Dunsmur Road, Vic- 
toria, British Columbia, Canada, V9A 
5B7. Please include an SASE.) fr 
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PROGRAMMING UTILITY 





Now you can use CoCo’s assistance for 
compiling program documentation 


Cross-Reference Your 


Programs with AREF 


By Douglas Van Dusen 


a program you wrote several 
months ago and couldn’t find 
your way around the program? Well, 


H:: you ever had to go backto yReEF Sample Run 


you have fallen to the bane of all pro- —aypep» - February 26, 1986 PASE 
grammers: documentation! The worst . 
part of writing a program is document- S*#80L REFERENCE LINE 
ingit. XREFhelpsmakeiteasiertodo =» | WEEE 
that documentation by making the 4 99 
CoCo do most of the work for you. vonage eens eeseseess : 2D is DO . 7 

XREF will list your program and 12 15 16 18 21 26 29 41 
cross-reference it. It is easy to modify 42 
X REF since the line length and number 2 od Ms Doo eee e ee eee eee eee 
of references per line have been placed 23 6 eee 
in variables. This program also works 39 12 16 17 29 25 
for tape users asthe devicenumberhas >> sss 93 
been placed in a variable, also. 35 33 

Some of the rules for using this 37 34 
program are: |) The program must be 8 ooo. 3} oe. 34 oon ee nnn. 
saved in ASCII; 2) In present form a 39 18 19 
PCLEAR @ must be done for disk oper- a 3 
ation (see “Program Modifications” for 68. nce ene eee eee ee ee ee eee eee cee cece e cn eee 
more on this); 3) You must have a 43 7 
printer (any width will do); 4) Don’t use 59 3 
the high speed POKEs in the program — _.--- 2-02 ne nen nen ene eee ee en ee een ence nena nnenneneee 
with a software spooler program. It will 58 6 47 
mess up the printout; and 5) Be sure you ee 47 43 * 
have no machine language programs in socogransccsescccs ences: Scrricrrrnacoresnscceeesconescccssccotsccosesccasecccas 


memory — you need all the memory 
you Can get. 67 67 
Let’s have a look at the program =«=—--~-27o rrr rrr rrr rrr rrr rrr rrr rr rrr rr cre ttre rrr sets scr sec cecceecsecnecrcne 


section by section: oo 6 62 65 
72 i 
Line Description 9200000 rotten rrr tren ent t rer eec crete reenter ccc eee c ence cen nese ence ene ee een erneeeees 
] Sets the printer Baud rate ° . 
(9600 in my case). 82 86 
2-3 Displays the status and statis- aS Ba nena eens reer eeeeeeeess 
tics while the program oper- 87 83 
ates (so you can tell it’s doing 88 4 88 
something). wana ce ence cneneeneseceeceneeeeeecceeeensecececnessecsseneecsceceeecesecccnseceee 
4-8 Sets up the parameters, finds BC 2 5 9 69 
out what options you have BN 9 22 28 41 
selected and enters the pro- BR doce eee ceecnccceeee 7 wo ee eee ee ee en ence ene ere cece eee cee cence ceeennne 
gram line. c 22 23 31 32 


9-40 Breaks (parse) the input lines 
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41-58 
59 - 71 


72 - 73 


74 - 75 


76 - 80 


81 - 86 


The listing: XREF 


and finds the reserved words 
using the data in the RW$ 
array. These come from the 
DATA statements. 

Prints the cross-reference por- 
tion of the listing. 

This is the page break portion 
of the program. It works no 
matter how wide the listing is 
to be created. 

Clears the string space and 
dimensions the arrays that are 
necessary for program opera- 
tion. This is where you can 
customize the program to suit 
your system (see “Program 
Modifications”). 

Displays the credits for the 
program (I request that these 
lines remain unchanged). 
Reads the DATA statements 
and places the reserved words 
in the RW$ array. 

Takes the programs to be 
“XREFed” (10 MAX). The 





program may or may not 
have the extension, however, 
if the extension is not BAS 
you must enter the extension 
(disk users don’t use the drive 
number). 

87 Used to input the date (it may 
also be used to put some com- 
ment of no more than 50 char- 
acters). 

88 Enters the selection of what 

you want the program to do. 

The loop that runs all of your 

programs you want to cross- 

reference. 

The DATA statements that 

have the reserved words. 


89 - 93 


94 - 96 


Program Modifications 
Line 1: This may be changed to reflect 
the Baud rate used for your printer. 
Line 72: The arrays RF and NX may 
be enlarged (for tape system or 40K 





BASIC program use). These arrays must 
be the same size. The HI and LO var- 
iables are used for the high speed POKE; 
these may be deleted if your machine 
won't handle it. Be sure to remove all 
POKE HI and POKE LO references in the 
rest of the program. 

Line 73: The DN variable is set to ‘1’. 
If it is set to -1 you will enter from tape. 
LW 1s the line width. Set it as you wish 
for your printer. ZR is the number of 
references per line. Use 6 for 80 cpl, 7 
for 96 cpl and 11 for 132 cpl. 

You can use the PCLEAR @ POKE (POKE 
25,6 for tape and POKE 25,14:POKE 
3584,@:NEW for disk) to clear more 
memory for the program’s use. The 
program needs a minimum of 500 bytes 
to operate. 

(Any questions you have about 
X REF may be directed to the author at 
2541-A Valencia Drive, Holloman 
AFB, NM 88330, phone 505-479-4035. 
Please enclose an SASE for a reply 
when writing.) 


15 IFCS="""THENI2ZELSEIFCS$<>", "TH 


ENBR=9 


GOTO12 


16 IFCS$=CHR$ (34) GOSUB39: LP=INSTR 
(LP+1,L$,C$) : IFLP>STHEN12ELSE7 
17 IFCS=""'"GOSUB39 :GOTO7 

18 IFCS="$"GOSUB39 :GOTO12 

19 IFCS="("GOSUB39 

GOSUB39: IFCS$<>", "THENERS=""" 


1 POKE15$,1:GOTO72 

2 PRINT@@,STRINGS (46,128) ;"xref" 
;STRINGS (46,128) ;: PRINT@129, "PRO 
GRAM-ID: ";FS(F) :PRINT@196, "LINE 
NO: ";:PRINTUSING"######" 2: LN: PR 
INT@257,"LINE COUNT: ";:PRINTUSI 
NG"##H2##2" > 7.C-13 PRINT@321, "BYTE 
COUNT: "3:PRINTUSING"######":BC 
3 PRINT@386,"REF COUNT: ";:PRINT 
USING" #####4#" >RC+1: PRINT@453, "ME 
MORY: ";:PRINTUSING"######" ;MEM: 
RETURN 

4 M=VAL(M$) : IFM<SORM>3THEN88 

5 LC=0:BC=6: PZ=6: VS=""3CcS=""3Vc= 
91:RC=-1:SZ=9 

6 CLS: FORI=9T091:VN(I)=-1:NEXT:G 
OSUB68 

7 POKELO, @: IFEOF (DN) THEN43 

8 LINEINPUT#DN, L$: POKEHI, #:IFM>1 

GOSUB64 : IFM=2THEN7 

9 LG=LEN(LS$) : BN=@:ERS=""": LC=LC+1 
: BC=BC+LG 

16 LP=INSTR(LS," "):LN=VAL(LEFTS 
(L$, LP) ) :GOSUB2 

ll IFLN>32767THENLN=LN-65536 

12 LP=LP+1:IFLP>LG GOSUB39:GOTO7 

13 C$=MIDS$(LS$,LP,1) 

14 IFCS>="A"ANDC$<="2Z"THEN22ELSE 

IFCS>="9"ANDC$<="9"THEN41 
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=ASC(C$) : P=PT(C-65) : BN=9 

23 IFC<ASC (RWS (P) ) THEN42 
IFINSTR(LP,L$,RWS$(P))<>LP THE 
NP=P+1:GOT0O23 

25 GOSUB39: RWS=RW$ (P) 

26 IFRWS="DATA"THENLP=INSTR(LP,L 
$,"3:") :IFLP>STHEN12Z2ELSE7 

27 IFRWS="REM"THEN7 

28 IFRWS="GOTO"ORRWS="THEN"ORRWS 
="PLSE"ORRWS="GOSUB"THENBN=1 

29 LP=LP+LEN (RW$) -1:GOTO12 

39 IFVS=""THENRETURN 

31 IFVS>="A"THENVS=VS+ERS : C=ASC ( 
V$) +LELSEIFV$>="6"THENVS$=RIGHTS ( 
" "4VS,5) :C=VAL(LEFT$(V$,2))E 
LSE38 

32 IL=-1:I=C 

33 IFV$>V$ (I) THENIL=I:I=VN(I) : IF 
I>STHEN33ELSE35 

34 IFVS=V$ (I) THENJ=LS (I-91) : IFRF 
(J)=LN THEN38ELSERC=RC+1:NX(J)=R 
C;:GOTO37 

35 VC=VCt+1: IFIL>=STHENVN (IL) =VC 
36 VS(VC)=V$: VN(VC)=I:RC=RC+1:FR 
(VC-91)=RC:I=VC 

37 RF(RC)=LN:NX(RC) =-1:LS(I-91)= 
RC 

38 VS=""; RETURN 

39 IFVS<>""THENVS=V$+CS$ 
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48 RETURN 

41 IFVS=""ANDBN=9THEN12 

42 VS$=V$+C$:GOTO12 

43 IFM=2THENRETURN 

44 PZ=9:GOSUB62 

45 FORJ=$T091:V=7 

46 V=VN(V) : IFV<STHEN58 

47 IFLZ>54GOSUB62ELSESZ=SZ+1:IFS 
Z=3GOSUB63 

48 IFLEFT$(V$(V),1)<>" "ANDQQ=9A 
NDRZ<>3THENQQ=1 : GOSUB63 

49 RZ=$:I=FR(V-91) : POKELO, 9: PRIN 
T#-2,V$(V) 3}: POKEHI,# 

58 IFRZ=STHENPOKELO,#:PRINT#-2,T 
AB(16) ;:POKEHI,@ 

51 LN=RF (I) : IFLN<STHENLN=LN+6553 
6 

52 POKELO,#: PRINT#-2,USING" # 
####"; LN, : POKEHI, 9 

53 RZ=RZ+1 

54 IFRZ>ZR THENRZ=$: POKELO, 9: PRI 
NT#—-2: POKEHI, 6: LZ2=LZ+1: IFLZ>74G0 
SUB62 

55 I=NX(1) : IFI>STHEN5# 

56 IFRZ>STHENPOKELO, §: PRINT#-2:P 
OKEHI, §: LZ=LZ+1 

57 GOTO46 

58 NEXTJ 

59 POKELO, @: PRINT#-2,STRINGS (LW, 
Nast") 

69 PRINT#-2,"LINE: ";LC-1;" 
BYTE:";BC;" SYMBOLS: ";VC-91; 
" REFERENCES: ";RC+1 

61 LZ=LZ+3: POKEHI, 9: RETURN 

62 GOSUB68: POKELO, §: PRINT#-2, "SY 
MBOL";TAB(28) "REFERENCE LINE": LZ 
=LZ+1 

63 POKELO,#:PRINT#-2,STRINGS (LW, 
Ww") :LZ=LZ+1:SZ=8: POKEHI,#:RETUR 
N 

64 X=1 

65 IFLZ>56ORRIGHTS (L$,3) =", PG"GO 
SUB68 

66 Y=INSTR(X,LS$,CHR$(19)) : IFY>$T 
HENPOKELO, §: PRINT#-2 ,MID$(L$,X,¥Y 
-X) :LZ=LZ+1: POKEHI , 9: X=Y+1:GOTO6 
6 

67 POKELO, §: PRINT#-2,MID$(L$,X,L 
W) :LZ=LZ+1: POKEHI , 6: X=X+LW: IFX<L 
EN (L$) THEN67ELSERETURN 

68 POKELO, §: IFZZ=STHENZZ=1 : GOTO6 
9ELSEPRINT#-2, CHR$ (12) | 
69 PZ=PZ+1: PRINT#-2: PRINT#-2, TAB 
(LW-8)"PAGE ";:PRINT#-2,USING"## 
A PZ 

76 PRINT#-2,PRS$:PRINT#-2 

71 LZ=4: POKEHI,#:RETURN 

72 CLEAR1599: I=498:DIMVN (499) ,VS$ 
(499) ,FR(499) , LS (499) ,RF(1399) ,N 
X(1399) ,RW$ (12) ,PT(25) :HI=65495 
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:LO=65494 
73 DN=1: LW=8f: ZR=6:CLS: PRINTSTRI 
NG$ (32,166); 

74 PRINT" XREF COLOR BASIC VERS 
ION 1.9": PRINTSTRINGS (32,166) ;: 
RINT" (C)1984 WESTERN HORIZON" 
: PRINTTAB(11) "SOFTWARE LTD.":PRI 
NTSTRINGS (32,166); 

75 PRINT"LISTS ALL VARIBLES & RE 
F LINE #";PRINTSTRINGS (32,166);: 
POKEHI , 6: RW=9 

76 READRWS : RW=RW+1: RWS (RW) =RWS:1 
FRWS=""\"THEN79 

77 I=ASC (RWS) -ASC("A") : IFPT(I)=9 
THENPT (I) =RW 

78 GOTO76 

79 FORI=$T025: IFPT(1I)=STHENPT (I) 
=RW 

89 NEXT: POKELO, 9 

81 FX=9 

82 PRINT"PROGRAM-ID"FX+1":"3 s: LIN 
EINPUTLS 

83 IFLS=""THENIFFX<1THENENDELSE8 
7 

84 IF(DN=-1) THEN85ELSEIFINSTR(L$ 
,"/") =STHENLS=L$+"/BAS" 

85 FX=FX+1:F$ (FX)=L$ 

86 GOTO82 

87 PRINT: POKE282,6:LINEINPUT"DAT 
E = ":D$:POKE282,255: PRINT: PRINT 
"1) XREF 2) LIST 3)BOTH " 

88 MS=INKEYS: IFM$=""THENS88 

89 FORF=1TOFX 

98 POKELO,@:CLOSE:OPEN"I", #DN,FS$ 
(F) : PRS=CHRS (34) +""+FS (F)+CHR$ (3 
4)+" - "+D$:POKEHI, #:GOSUB4 

91 NEXTF 

92 POKELO, §: PRINT#-2,CHRS$(12) 

93 END 

94 DATAABS,AND,ASC,AS,ATN, AUDIO, 
CIRCLE, CLS, CHR$, CLEAR, CLOSE, COLO 
R,COS, CSAVE, CSAVEM, CLOAD, CLOADM, 
CVN, DATA, DEF, FN, DLOAD, USR, DEL, DI 
M,DSKI$, DSKO$, DRAW, ELSE, END, EOF, 
EXP, EXEC, FREE, FIELD, FILES, FIX, FO 
R,GET,GOSUB 

95 DATAGOTO,HEX$S, IF, INKEY$, INPUT 
, INSTR, INT, JOYSTK, KILL, LEFTS, LEN 
, LINE, LOAD, LOADM, LOC, LOF, LOG, LSE 
T,MIDS,MKNS , MEM, RENAME, NEW, NEXT, 
NOT, ON, OPEN,OR, MOTOR, OFF, PEEK, PO 
INT, PPOINT, POKE, POS, PUT, PRESET, P 
SET, PAINT, PCLS, PCLEAR, PCOPY, PLAY 
, PMODE, PRINT 

96 DATAREAD, REM, RESET, RESTORE, RE 
TURN, RIGHTS , RND, RSET, RUN, SAVE, SA 
VEM, SGN, SIN, SQR, STEP, STOP, STR$,S 
TRINGS , SCREEN, SKIPF,SOUND, STOP,T 
AB, TAN, THEN, TIMER, TO, UNLOAD, USIN 


G, VAL, VARPTR, WRITE, VERIFY, "\" - 
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LOADING UTILITY 





CLOAD and RUN all in one fell swoop! 
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TAPE PROGRAMS 





By Harold Nickel 








hile I have had my CoCo, I 
have come to appreciate its 
abilities. One I missed having, 


though, is the ability to load a program 
from tape and execute it all with one 
command. Without this, you can't 
“chain” programs (have one program 
execute another). Techniques have been 
written giving assembler programs the 
ability to auto-execute, but you are still 
stuck typing in CLOAD and RUN for your 
BASIC stock. 

The following machine code provides 
this ability; it differs from the assembler 
techniques. With assembler auto- 
executes, the program loaded stores 
values into memory locations that cause 
it to begin executing. The machine 
language program runs itself. With 
Crun, the logic is external to the pro- 
gram. Like a BASIC command, execut- 
ing the Crun code is done either man- 
ually or from a currently running 
program. 


Modifying CLOAD 

Since much of the logic I wanted to 
use was already a part of the CLOAD 
command, I decided to use a variation 
of that logic for Crun. The first step was 
to determine how CLOAD worked. 

I used the program Memdump (List- 
ing 1) to print the machine code for 
CLOAD. Memdump prints selected areas 
of memory to either the screen or a 
printer. (I use a Microline 82A printer.) 
It prints memory in hexadecimal with 
8 bytes per line for the screen display 
and 16 bytes per line for the printed 
output. Each line is preceded with the 
first byte’s address. Printed output is 
double-spaced to allow room for nota- 


tions. It also allows each dump to be 
titled for future reference. 

After printing the CLOAD code, I 
interpreted it into assembler instruc- 
tions using a 6809 assembly language 
book. I selected the portion of CLOAD 
that loads BASIC files and wrote it as a 
separate machine language routine. 

To transform this routine into Crun, 
it had to run the newly loaded file. It 
does this by storing the values ‘R’, ‘U’ 
and ‘N’ in the keyboad buffer, then 
jumping to the command execution 
logic. This simulates the entry of the 
RUN command from the keyboard and 
causes the program to be executed. 


The final version of Crun is presented 
in Listing 2. Not having an assembler, 
the code is shown in a three-column 
table rather than as an assembler pro- 
gram. The first column contains the 
actual machine code. The second col- 
umn contains the assembler instruction 
associated with each line’s function. The 
third column contains comments to 
help interpret the function being per- 
formed. 

Using Crun 

I used the program in Listing 3 to 
buios of memory. The = Variable A con- 
tains the address of the start of Crun. 
This value, therefore, must be less than 
or equal to the highest address in RAM 
minus 101. The CLEAR statement keeps 
the routine from being written over. Its 
address value should be less than or 
equal to the value used in Variable A. 

Once installed, Crun can be called by 
using the EXEC command with the start 
address. Since the logic used is similar 
to that of CLOAD, it can also be used with 
a filename. Simply follow the EXEC 


command and address with either the 
filename in quotes when entering it 
through the keyboard, or as a variable 
value if executed from a program. 

One use I have found for Crun is to 
equip each of my program tapes. with a 
directory program (Listing 4). I gener- 
“ally keep a few tapes as a program 
library containing a number of BASIC 
programs. The 7apeDir program pro- 
vides a list of all programs on a tape, 
and the ability to load and run them 
from a menu. 

Tape Dir first protects the highest 102 
bytes of RAM (my CoCo has 32K) and 
pokes in Crun. It then displays the 
program names on the tape. You can 
select one from the menu by pressing its 
letter (or exit Tape Dir with the SHIFT- 
CLEAR keys). The selected program will 
be loaded and run. I use Tape Dir itself 


as one of the selections. Then, if the 
program I want is not on the first tape, 
I can insert a new tape and select 
Tape Dir to display its menu. 

Since I add programs to my tapes 
periodically, I wrote TapeDir so that 
adding new program names would not 
increase its length. The new name is 
added as one of the T$ values. Names 
with less than eight characters are 
padded with blanks. The new directory 
can then be saved over the old one 
without writing into the next file on 
tape. 

An additional technique I use is to 
place a tape header file on each tape. It 
consists of one comment line and is 
always the first file on a tape (before 
Tape Dir). This lets me position the tape 
exactly at the beginning of TapeDir, 
using SK IPF, when I want to save a new 
menu. O 


—~ 
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Listing 1: MEMOUMP 


§ ‘FORMATTED HEX MEMORY DUMP 

1 CLS 

2 MS=" TY 
INPUT"ENTER TITLE: ";TS 
IF TS="Q" THEN END 
INPUT"ENTER START (HEX) : 
INPUT"ENTER END ADDRESS: "; 
PRINT 
INPUT" (S)CREEN OR (P)RINT): " 


21 IF O$="S" THEN O=9:PRINT:GOTO 
25 

22 IF OS="P" THEN O=-2:PRINT:GOT 
O 26 

23 PRINT: PRINT"ENTER S OR P":GOT 
O 29 

25 CLS:S=8:GOTO 39 

26 PRINT: PRINT"READY PRINTER.":P 
RINT"PUSH ENTER WHEN READY." 

27 S=16:MS$=" 

28 INPUT OS 


O@folanvanteiaiiersvarelar: 
specialists 


AUTO ANSWER $399.00 


INFO CENTRE 


THE FIRST BULLETIN BOARD SYSTEM 
for Tandy’s computers 


(02) 344 9511 


SPECIAL! 


Avtek Mini Modem + Cable + CoCo 
Tex Program — the total Viatel System — 
$279.00 


We also have the largest range of Software for 
OS-9 and Flex operating systems. 


PARIS RADIO ELECTRONICS 


161 Bunnerong Rd., Kingsford, N.S.W. 2032. 
(02) 344 9111 


29 IF O$S="Q" THEN GOTO 79 
36 PRINT#O,M$;TS:PRINT#O," ":L=2 
31 FOR A=VAL("&H"+S$) TO VAL("&H 
"+ES) STEP S 
32 PRINT#0,MS$; 
33 IF LEN(HEX$(A))<4 THEN FOR P= 
LEN (HEX$(A))+1 TO 4:PRINT#0,"9"; 
:NEXT P 
PRINT#0,HEXS(A);" 0: "3 
FOR SA=% TO S-1l 
PRINT#O," "; 
IF LEN(HEX$ (PEEK(A+SA) ))<2 TH 
PRINT#O, "9"; 
PRINT#0, HEXS (PEEK(A+SA) )} 
NEXT SA 
PRINT#O,"" 
IF O=-2 THEN PRINT#O," ":GOTO 


L=L+1 
IF L<15 THEN GOTO 65 
TS=INKEY$:IF TS=""" THEN GOTO 


L=9 

NEXT A 

PRINT 

INPUT"MORE ?";0$ 

IF O$="YES" THEN GOTO 1 
IF OS="Y" THEN GOTO 1 
CLS 

END 


MK 1 SERIAL/PARALLEL 
PRINTER INTERFACE 


CONNECT CO-CO I or II to a PARALLEL PRINTER 
Revised MK! PRINTER INTERFACE 
Features: 
* BXTRA SERIAL PORT for MODEM,no more plugging 
/unplugging cables. 
Compatible with Standard Centronics Parallel 
Printers eg: BPSON,GEMINI,BMC,CP80,TANDY ETC. 
Plugs into CO-CO or CO-CO II Serial Port and 
includes all cables and connectors. 
SIX Switch selectable Baud rates 
300, 600, 1200, 2400, 4800, 9600 
Power Pack is required for Printers not 
supplying power at pin 18 on the Parallel 
Connector eg: EPSON, BMC,CP8O. 
Increases Printing Speed by up 
to 30% on TANDY DMP100/200 Printers 


NOW ONLY — $89.95 (including postage) 
Add $9 for Power Pack if required 


AVAILABLE FROM: G.& G. PIALA 
P.O. BOX 46 
THORNLBIGH. NSW.2120 
phone: (02)-84-3172 





Listing 2: CRUN 





Listing 4: TAPEDIR 


§ 'TAPE DIRECTORY WITH CRUN 

1 CLS 

2 CLEAR 2£f,32666:A=32666 

3 DIM T$(24) 

18 ‘INSTALL CRUN 

11 DATA #F,78,32,62,BD,A5,C5,BD, 
A6,48,7D,91,E4,26,85,B6,61,E2,27 
,03,7E,A6,16,BD,AD,19,BD,A7,7C,9 
E,19,9F,7E,DC,7E,4C,BD,AC,37,BD, 
A7,$B,26,34,96,7C,27,38,2A,ED 

12 DATA 9F,1B,BD,A7,E9,8E,AB,EC, 
BD,B9,9C,BD,AD,21,BD,AC,EF,BD, #1 
,82,8E,682,DD,86,52,A7,89,86,55,A 
7,89,86,4E,A7,89,6F,84,C6,94,8E, 
92,DC,4F,7E,AC,7F 

13 DATA BD,AD,19,7E,A6,19 

14 FOR P=A TO A+191 

15 READ D$:POKE P,VAL("&H"+D$) 
16 NEXT P 

29 'INITIALIZE DIRECTORY TABLE 
21 T$(1)="DIR " 

22 T$(2)="MEMDUMP " 

23 T$(3)="INSTALL " 

24 T$(4)="CRUN " 

25 T$(5)=" " 

26 T$(6)=" iT] 

27 T$(7)=" " 

28 T$(8)=" " 

29 T$(9)=" " 

39 T$(1p)=" " 

31 T$(11)=" " 

32 T$(12)=" " 

33 T$(13)=" " 

34 T$(14)=" " 

35 T$(15)=" " 

36 T$(16)=" " 

37 T$(17)=" " 

38 T$(18)=" " 

39 T$(19)=" " 

4p TS$(2p)=" " 

41 T$(21)=" " 

42 T$(22)=" " 

43 T$(23)=" " 

44 T$(24)=" " 

5§ 'DISPLAY TAPE DIRECTORY 


Machine Assmbler 
Code Instr. Description 
QF 78 CLR Flag CLOSE 
32 62 LEAS Clear Stack 
BD A5 C5 JSR Evaluate Filename 
BD A6é 48 JSR Locate the File 
7D 91 E4 TST Check If Binary 
26 95 BNE Jump If Not Binary 
B6 91 E2 LDA Check If Basic 
27 93 BEQ Jump If Basic 
7E A6é 16 JMP Jump to FM Error 
BD AD 19 JSR Do NEW 
BD A7 7C JSR Read File Leader 
9E 19 LDX X=Program-Area Ptr 
9F 7E STX Cassette-Buffer Ptr=X 
DC 7E LDD D=Cassette-Buffer Ptr 
4C INCA Bump Cassette-Buffer Ptr MSB 
BD AC 37 JSR Do Memory Check 
BD A7 GB JSR Read a Block © 
26 34 BNE Jump If I/O Error 
96 7C LDA A=Block Type 
27 39 BEQ Jump If Header Block 
2A ED BPL Loop If Data Block 
oF 1B STX Save Buffer Ptr as End of Prog. 
BD A7 E9 JSR Turn Off Cassette 
8E AB EC LDX X=0.K. Message 
BD B9 9G JSR Display O.K. Message 
BD AD 21 JSR. Reset Basic Memory Ptrs 
BD AC EF JSR Reset Basic Line Ptrs 
BD 91 82 JSR Call Extended Basic Link 
8E 92 DD LDX X=Start of Input Buffer 
86 52 LDA A='R' 
A7 89 STA Save 'R' in Buffer 
86 55 LDA A='U' 
A7 89 STA Save 'U' in Buffer 
86 4E LDA A='N' 
A7 89 STA Save 'N' in Buffer 
6F 84 CLR Flag End of Input 
C6 94 LDB B=Length of Input 
8E 92 DC LDX X=Start of Input minus 1 
4F CLRA Signal No Break Key 
7E AC 7F JMP Jump to Command Mode 
BD AD 19 JSR Do NEW 
7E A6é 19 JMP Jump to Display I/O Error 


51 PRINT" 


TAPE DIRECTORY 


Listing 3: INSTALL 


‘INSTALL MACHINE LANGUAGE CODE 
CLS 
CLEAR 299, 30f22 
A=39$99:'START ADDRESS 
L=192:'NUMBER OF DATA VALUES 
FOR X=A TO (A+L)-1 
READ H$ 
POKE X,VAL("&H"+H$) 
NEXT X 
PRINT"CODE INSERTED AT";A 
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199 END 
119 DATA $F,78,32,62,BD,A5,C5,BD 
,A6,48,7D,91,E4,26,95,B6,1,E2,2 
7,03,7E,A6,16 

129 DATA BD,AD,19,BD,A7,7C,9E,19 
,9F,7E,DC, 7E,4C, BD, AC, 37,BD,A7,9 
B,26,34,96,7C,27,39,2A,ED 

139 DATA 9F,1B,BD,A7,E9,8E,AB,EC 
,BD,B9,9C,BD,AD,21,BD,AC,EF 

149 DATA BD,#1,82,8E,2,DD,86,52 
,A7,89,86,55,A7,89,86,4E,A7, 89,6 
F,84,C6,94,8E,02,DC,4F,7E,AC, 7F 
159 DATA BD,AD,19,7E,A6,19 
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";PRINT 

52 PRINT" A — ";T$(1);" M - 

";T$(13) 

53 PRINT" B —- ";7$(2);" N - 

";T$ (14) 

54 PRINT" Cc - ";7$(3);" O- 

";T$(15) 

55 PRINT" D — ";7T$(4);" P - 

";TS (16) 

56 PRINT" E - ";T$(5);" Q- 

";T$(17) 

57 PRINT" F —- ";7$(6);" R - 

";T$ (18) 

58 PRINT" G —- ";7T$(7);" Ss - 

";T$(19) 

59 PRINT" H - ";7$(8);" T - 

";TS$ (29) 

69 PRINT" I - ";T$(9);" U - 
";TS$ (21) 

61 PRINT" J —- ";7$(19);" V- 
";T$ (22) 

62 PRINT" K - ";7$(11);" W- 
";T$ (23) 

63 PRINT" L — ";7$(12);" Xx - 
"TS (24) 


64 PRINT: PRINT" 
ear) TO EXIT"; 
65 SCREEN 9,1 
7 *PROGRAM SELECTION 

71 D$=INKEYS:IF DS="" THEN GOTO 


USE (shift) (cl 


72 IF ASC(D$)=92 THEN END 
73 IF ASC(D$)<65 OR ASC(D$)>88 T 
HEN GOTO 71 

74 IF T$(ASC(D$) -64)=" " 
THEN SOUND 1,3:GOTO 71 

75 SCREEN $,:EXEC 32664 T$(ASC( 
DS) -64) 


ov 


) 





CoCo MERGE 


by John Nicolettos 


One of the most significant deficiencies of the 
Color Computer is the lack of a cassette MERGE command. 
I find this particularly frustrating because | preter to 
design programs in a modular fashion. By this I mean 
that I divide the application program into sub-tasks. 
Each sub-task is performed by a program module. Each 
module is written, debugged, and tested seperately. The 
modules are then assembled into the final application 
program. This approach leads to the development of a 
library of standard modules since modules tend to be 
useful in different places and in other programs. Much 
of the usefulness is lost, however, if modules must be 
typed each time they are to be used. 

Thus, COCO MERGE was written to preserve my 
programming style and to overcome what I believe to be a 
major deficiency of the Color Computer. It will append 
one BASIC program to the end of another at the touch of 
the command keys. COCO MERGE even has its own prompts. 
However, a word of caution is needed. COCO MERGE is 
habit forming. Once you have used COCO MERGE you‘l! 
wonder how you ever did without it. 


THEORY OF OPERATION. 

BASIC programs can reside almost anywhere in the 
Color Computer’s memory. The PCLEAR command ‘available 
with Extended BASIC) provides the mechanism for 
relocating BASIC programs. It is used primarily to 
reserve memory for graphics. The Color Computer does a 
PCLEAR 4 when first turned on. This reserves 4 graphics 
pages (1536 Bytes per page) in lower RAM memery. BASIC 
programs will start loading at memory location Dec. 7681. 
A PCLEAR 1 will start loading BASIC at location Dec. 3073 
whiie a PCLEAR 8 will start BASIC at Dec. 13825. With 
all this moving around the Color Computer must have some 
way to keep track of the BASIC program. Memory locations 
Dec. 25 - 28 provide this service. Locations 25 and 26 
are the start of BASIC pointer while 27 and 28 are the 
end of BASIC pointer. As their names imply, these memory 
locations point to the begining and end addresses of the 
BASIC program. 

Each line of the BASIC program, when translated tc 
machine Janguage by the Color Computer, contains the 
address af the next line. The Color Computer will append 
a two Byte flag at the end of the BASIC program. Thus, 
the lines of the BASIC program are linked together from 
start to finish. | Ali the Color Computer needs is the 
location of the first line. From that point on ii daisy 
chains its way through the program executing each line 
along the way. When it gets to the end of BASIC flag the 
Color Computer will stop executing and return to the 
command input mode. 

COCO MERGE makes use of this linking of BASIC 
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program lines to merge programs. Once the first program 
has been completed and entered into memory; the SHIFT and 
CLEAR Keys are pressed. The first time this is done the 
start of BASIC pointer ‘Dec. 25 & 26) is stored in 
location STR. The end of BASIC address is then 
decrimented by two and stored in locations 25 and 26. 
This will cause the second program to overwrite the end 
of BASIC flag and will link the first line of the second 
program to the last line of the first program. Now the 
second program may be entered. This program may be 
manipulated freely, without fear of affecting the first, 
since the Color Computer is no longer aware of the first 
program. 

When the second program has been completed the 
command Keys are once again pressed. This time COCO 
MERGE places the original start of BASIC address, which 
was stored in STR, back into locations 25 and 24. The 
Color Computer will now run both programs as though they 
were one, 

PROGRAM DESCRIPTION = page? 

Program listing 1. contains the machine language 
source code for COCO MERGE. Lines 110-140 will place the 
address of COCO MERGE into the Color Computer’s Jump 
Table and initialize the mode switch. This alters the 
subroutine which outputs a character to the screen. 
Thus, COCO MERGE will be executed just before the 
computer PRINTS a character on the screen. 

Lines 130-160 reserve memory to store the start of 
BASIC pointer and the state of the mode switch. Lines 
170-200 store the two prompts. 

COCO MERGE starts with line 210. Lines 210-220 
check each character looking for the command key. If the 
command Key was not pressed then the program returns to 
the Color Computer’s character output routine. When the 
command Key is recognized then ‘ines 230-240 are 
executed. These lines check the setting of the mode 
switch. Tf the switch is set to merge ¢ zero ) then 
lines 290-340 are executed. If the switch is set to 
restore « 256 ) then Jines 350-410 are executed, 

The merge sequence consists of getting the initial 
start of BASIC address and storing it in STR. Then, 
decrimenting ‘the esa af BASIC address by two and storing 
st oun othe start of BASIC pointer jocations. Line 300 
selects the appropriate promot “MERGE INITIATED! address 
for the screen print subroutine, Line 310 toggles the 
switch and iine 320 calle the COCO MERGE screen print 
subroutine ‘iines 430-480). Lines 330 and 340 return to 
BASIE «through «the Color Computer’s normal prompt 
subroutine. 

The restore sequence retrieves the initial address, 
from STR, and returns it to the start of BASIC pointer 
jocations. Line 370 select the MERGE COMPLETED prompt 
address anc jine 380 toggies the switch. Line 390 cails 
the screen print subroutine. Lines 400 and 410 return 
controi to BASIC through the promot subroutine. 

The screen print subroutine ‘lines 430-480) wili 
display the appropriate prompt. cine 430 establishes a 
counter for the two 14 character orampts (including the 
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carriage return), Line 450 is the Color Computer’s 
norma! screen print subroutine jump address. 


ERAS 


OPERATING INSTRUCTIONS AM 

Program listing 2. contains the BASIC language 
driver for COCO MERGE. The program is very friendly and 
wiil instruct you on its use. In addition, it will 
automaticaiiy load the machine language program in the 
highest jocation of available RAM. This is true 
independent of the size of memory. 

The program contains a simpie arithmetic check 
clines 200 and 220) on the DATA statements. This check 
will assure that the program is typed and entered 
correctly. If there are no errors then the program wi! 
EXEC COCO MERGE and protect it from BASIC. 

To use COCO MERGE simply type or CLOAD the first 
BASIC program. When you have finished note the last iine 
number of this program. The SHIFT and CLEAR Keys are the 
command Keys. To execute COCO MERGE simply press the 
SHIFT and then the CLEAR Key (simultaneously). Your 
Color Computer wili respond with the prompt MERGE 
INITIATED. You will no longer be abie to RUN or LIST the 
program. The Color Computer has essentially forgotten 
this program. But do not fear, COCO MERGE is in controi. 

You may now enter the next program. You may type or 
CLOAD the program into memory. This program should start 
with a program line which is greater than the last line 
of the first program. You may RUN, EDIT, RENUM, or do 
just about anything else to this second program without 
affecting the first. The only exception is the PCLEAR 
command. If you are working with graphics programs then 


one additional word of caution is in order. Since the 
first program is in lower memory it could be overwritten 
by RUNing a graphics program. 


Once you have completed the second program; press 
the SHIFT and CLEAR keys once again. This time your 
Color Computer will respond with the prompt MERGE 
COMPLETED. Now if you execute a RUN or LIST command the 
Color Computer wili execute or display the merged 
programs. 

While merging cassette programs is very easy with 
COCO MERGE the following precautions should be observed: 

Make sure that your merged program does not contain 
duplicate iine numbers, A program which contains two 
Jines with the same number will not execute properly. 

The second program should start with a line number 
greater than the last line number of the first progran, 
Tf you didn’t observe this precaution, and you have 
Enhanced BASIC, all is not lost. ‘You may be able to save 
your merged program by executing the RENUM command. The 
Color Computer will automatically renumber the program 
iines. However, transfer statements such as IF THEN, 60 
TO, GO SUB, ON...G07T0, or ON...GOSUB must be checked. 

Doubie check the application of variables common to 
both programs. Cne program may accidently alter 
variables used by the other program. 

Check the merged program’s logic flow. Make sure 
that the new (merged) program performs the functions 
which you intended and in the order that you intended. 

Check the order of DATA statements to assure that 
the data is being READ in the proper sequence. Remember 
that DATA statements are arranged in order of use. The 
RESTGRE command can also cause problems in a merged 
program. 

Finally, check all transfers between the two 
original programs. Make sure that you Know where each 
transfer is and under what conditions it will be 
executed, 





RM CLLCLECELECLecreertecrice. 
20° CO CO MERGE 

30° ok BY 
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50° # APRii 1, i983 
60° * ALL RIGHTS RESERVED 
7Q 1 RERKEHK RFRA RHR ASS AAS HEHE SE 


% 
4 
JOHN L, NICOLETTOS = * 
P 


80 CLS 

90 PRINT® CO CO MERGE" :PRIN 
7932, STRINGS 32,131); 

100 PRINT" THIS PROGRAM WILL LOAD, 


* sPRINT’EXECUTE, AND PROTECT A MACH 
NE" 

110 PRINT*LANGUAGE UTILITY WHICH WIL 
L*:PRINT*ALLOW YOU TO MERGE TWO CR M 
ORE* 

120 PRINT"CASSETTE PROGRAMS. TQ USE 
":PRINT"SIMPLY TYPE OR CLOAD YOUR Fi 
RST* 

130 PRINT*PROGRAM. BEFORE ENTERING 

THE" :PRINT*NEXT PROGRAR PRESS THE [% 
HIFTI° 

140 PRINT*AND CLEAR KEYS. TYPE ORC 
LOAD" PRINT" THE NEXT PROGRAM. WHEN 
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DONE® 

150 PRINT*PRESS THE [SHIFT] AND CLEA 

R KEYS": :PRINT'ONCE AGAIN TO COMPLET 

E MERGE." 

160 PRINT2484,*PRESS ENTER TO CONTIN 

UE" sLINEINPUT 223 

170 ED=PEEK( 39) #256+PEEK( 4G) 

180 ST=ED- 118 

190 FOR X=ST TO ED 

200 READ D:POKE X,D:SUMESUM#D 

210 NEXT X 

220 IF SUM <) 12999THEN CLS:PRINTa2é 

3," }DATA ERROR!!!" :END 

230 EXEC ST 

240 CLEAR 200 ,ST 

250 DATA 48, 141, 0, 43, i91, 1, 104 
, il 

260 DATA 141, 0, 3, 57, 0, 255, 16, 

7? 

270 DATA 69, 82, 71, 69, 32, 73, 79, 
73 

220 DATA 84, 73, 65, 84, 69, 68, 13, 
77 

290 DATA 69, 92, 71, 69, 32, 67, 79, 
77 


200 DATA 80, 76, 69, 84, 49, 68, 13, 
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{29 
310 DATA ¥2, 38, 54, 109, idf, 255, 

215, 38 

320 DATA 27, 158, 25, 175, 141, 255, 
205, 158 

330 DATA 27, 48, 30, 159, 25, 49, ! 

0, 199 

340 DATA 99, 141, 255, 194, i41, 30, 
142, 17! 

350 DATA 239, 126, 172, 121, 174, 14 
{, 255, 180 

360 DATA 159, 25, 49, 140, 194, 111, 
141, 255 

970 DATA 173, 141, 9, 142, 171, 239, 
126, 172 

380 DATA 121, 126, 130, 115, 198, 16 
, 166, 160 

390 DATA 187, 162, 130, 90, 38, 248, 
57 - 

400 CLS 

410 PRINT#128," co 

420 PRINT :PRINT® cor 

430 PRINT :PRINT® MERGE: 
440 PRINT:PRINT® LOADE 










Color Print 


Reg 14.95 


Save 
7 7 


Color Screen Print Utility. Provides multi-color 
printouts of color graphics screens produced by 
your graphics program. For use with color ink-jet 
printer or any dot matrix printer with bit-image 
capabilities for black and white printouts. 26.3121 


Reactoids 


*15 Off! 


Reg 39.95 









reactor! Test your speed and co-ordination as you 
take control of the reactoid and race against time to 
contain the atoms. Can you keep it up long enough 
to stabilise the atoms. Requires joystick. 26-3092 


Color LOGO 


Save *20 


Reg 69.95 


49° 





Color LOGO Programming Language. Students 
grasp graphic relationships and develop problem 
solving skills through programming and controll- 
ing turtles on the screen. As a pattern is drawn, itis 
stored for future reference. 16K program pack. 26.2722 


Computer 
Cassette — 


Leaderless and Certified 


95 


Reg 4.95 






20% Off 


® Certified high quality ensures there is no 





. data loss. . 
#/ @ Leaderless for instant recording without 


loss of initial data. 


® Comes with protective case. 26-301 
Bedlam 
Save *10 
Reg 24.95 


14°° 


You're a patient in an insane asylum! The maze 
unfolds as you try to find an escape route. Can you 
trust Napoleon? Or the guy who calls himself 
X-Ray? The way out of the asylum changes every 
time. It will drive you mad! 26.3312 


Shamus 


Save *20 


Reg 49.95 


29°° 


S 
. 
\ 
» 


Take advantage of great value and help Shamus 
conquer the evil Shadow in his maze of danger! 
Retrieve coloured keys from the chambers of 
Shadows Lair, but beware of his terrifying guar- 
dians. Has three levels of difficulty. 26-3289 


Programming 


*20 Off! 


Reg 79.95 


59°° 


Color Editor/Assembler. Develop 6809 software pro- 
grams or subroutines. Comes with trial assembly in 
memory so that you can run your program before final 
assembly to tape. Features an editor to change your 
program and Z2-Bug for testing. 26-3250 





Sale Ends: March 31st, 1986 
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Tandy offers you an easily affordable introduction to the 
exciting world of computers with this very versatile 
home system! Plug it into your TV and begin by creatin 

eight color graphics with sound using the built-in BASI 

language. Simple one-line commands make it easy. 
|Next write your own programs, or snap in an instant- 
loading Program Pak™ cartridge and enjoy hours of 
family fun playing games from Tandy’s huge range of 
entertainment and educational software. The Color 
Computer 2 is ideal for people of all ages — young 


Computer Cassette Recorder 


69°° 


@ For Use With 
Tandy 
; Computers 
— @ Switchable 
Pause 


Specially designed features for loading, saving 
and reviewing! Has on/off sound monitor, re- 
mote off, tape counter, LEDs for load/review/ 


cue and battery, plus auto-level record. Jacks: 
earphone, remote, mike, aux. With case and 
connecting cable. 26-1209 Batteries not included. 


ronay 


Nearly 
350 Stores 
Australia- 

Wide 


A DIVISION OF TANDY 
AUSTRALIA LIMITED 
INC INNS W 





3% OFF! 


ie y Wy 2 Te S 





A TRUE FAMILY 
COMPUTER 











| 16K Extended 
.-. Basic Color 
Computer 2 


Save *70 


Reg 299.95 


children can use it to improve their maths, spelling, 
reading and writing skills. Students can store homework 
data in it with an optional cassette recorder, and tap into 
information databases using an optional modem. 
Parents can work out finances, plan budgets and type 
correspondence with an optional printer. The Color 
Computer 2 has 16K of memory, which is plenty for all 
these purposes, but it easily expands if you require 
more. Add an optional disk drive and you’ve got a com- 
plete personal computer system. 263136 


Color Computer Joysticks 





Joystick. Precise control makes games and graphics 
come alive! 360° movement. 26-3008 29.95 
Deluxe Joystick. Feel the difference! Patented for in- 
stant response! Dual axis trim controls for fine- 
tuning joystick to software. 26-3012 39.95 


WE SERVICE WHAT WE SELL! 


Available from 


350 Stores Australiawide 
including Tandy Computer Centres 


“independent Tandy Dealers may not be participating 
in this ed or have every item advertised. 
Prices may also vary at individual Dealer Stores 





EXTENDING BASIC 
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Enhancing the 
CLS Command 





ith the possible exception of 
Wes: the CLS command is 

probably the most often-used 
command when it comes to writing text- 
based BASIC programs. The CLS com- 
mand has nine variations that corre- 
spond to the available colors in the text 
mode. I concluded these nine variations 
were not enough and decided to do 
something about it. 

SuperCLS is a machine language 
subroutine that enhances the CLS com- 
mand. Aside from the standard options 
accessible with the normal CLS com- 
mand, several other options are also 
available. These include clearing the 
screen to any character that can be 
displayed, clearing only a portion of the 
screen and inversing the video of the 
characters on the screen. 











The listing: SUPERCLS 


'=>SUPERCLS V1. {<= 
' GERRY SCHECHTER 
'75 MIDLAND TERRACE 
"YONKERS, NY 19794 
' FEBRUARY 1984 
Cre eee eee eee eke tee tee eee ere 

19% CLS 

119 PRINT" 

kee 
GOTO 429 
X = USR#(169):GOSUB 51f 

X = USR#(32):GOSUB 519 
PRINT@64,"SUPER CLS" 

X = USR#(179):GOSUB 519 

X = USR#(32):GOSUB 519 
PRINT@128," SUPER CLS" 

X = USR#(154):GOSUB 519 

X = USR#(32):GOSUB 519 
PRINT@192," SUPER CLS" 

X = USR#Z(236) :GOSUB 519 

X = USR#(32):GOSUB 519 
PRINT@256," SUPER CLS" 
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** SUPER CL 


By Gerry Schechter 


The short demonstration program 
accompanying this article should serve 
to illustrate most of these features. 
However, some additional explanation 
is in order. The machine language 
subroutine is completely relocatable, so 
it can be placed anywhere in memory 
that won't be clobbered by BASIC. The 
subroutine uses BASIC’s current cursor 
position in order to determine the 
starting point for the SuperCLS oper- 
ation. This is controlled from your 
BASIC program by using the PRINT and 
PRINT® statements. Therefore, the 
subroutine starts its operation from 
wherever BASIC normally prints its next 
character. 

Control is passed to the subroutine 
via a USR call. The value in the paren- 
theses is the value that is used for the 


X = USR#(42):GOSUB 519 
X = USR#(32):GOSUB 519 
PRINT@329,""; 

FOR Z = 1 TO 255 

X = USR#(Z) 

SOUND Z,1l 

NEXT Z 

PRINTG@D,""; 

X = USR#(32) 

FOR Z = 32 TO 489 STEP 32 
PRINT@Z,""; 

X = USR#(32) 

PLAY "T255L25501V31;1V<1V<1" 

GOSUB 529 

NEXT Z 
PRINT@448,"">: END 
"PROTECT MEMORY AND 
DEFINE USER CALL 

IF PEEK(116) = 127 

THEN CLEAR 209,32735 

ELSE CLEAR 299,16351 
IF PEEK(116) = 127 

THEN ML = 32736 

ELSE ML = 16352 

DEF USRZ = ML 

'POKE ML PROGRAM INTO MEMORY 
FOR X = ML TO ML+29 
READ xX$ 

POKE X, VAL("&H"+X$) 
NEXT X 

GOTO 139 

SOUND 255,2 

FOR X = 1 TO 5f9 

NEXT X 
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SuperCLS operation. This can be any 
value ranging from zero to 255. These 
are the same values you normally use in 
a PRINT CHRS statement. The only 
exception to this is the value of 32, 
which inverses the video on the screen 
instead of clearing it. 

If it is still unclear as to how the 
subroutine works, take a few minutes to 
type in and run the demonstration 
program. As someone once said, “A 
picture is worth a thousand words.” 
Have fun, and feel free to use this 
subroutine in your next program. 


(Any questions you have regarding 
SuperCLS may be directed to the au- 
thor at 75 Midland Terrace, Yonkers, 
NY 10704, phone 914-965-8102. Please 
include an SASE when writing.) C) 


RETURN 
'DATA FOR ML SUBROUTINE 
DATA BD,B3,ED 
9E,88 
C1,29 
26, 0D 
A6,84 
88,42 
A7,89 
8C,05,FF 
23,F5 
26,87 
E7,86 
8C,95,FF 
23,F9 
39 
'SOURCE FOR ML SUBROUTINE 
ORG 
'CURSOR EQU 
'START JSR 
LDX 
CMPB 
BNE 
LDA 
EORA 
STA 
CMPX 
BLS 
BRA 
STB 
CMPX 
BLS 
RTS 
END 





GRAPHICS UTILITY 


Getting picture formats together 


Py 
By Joseph Kohn 


upposing we consider the stand- 
SG: format PMODE4 picture to be 

the infant of high resolution 
CoCo graphics, then Graphicom (by 
Cheshire Cat) is probably the teenager, 
and surely CoCo Max (by Colorware) 
is the young adult. As is typical of these 
“generation gaps,” they have difficulty 
communicating with one another. Al- 
though all three use PMODE4, their 
picture file formats are sufficiently 
different, so moving pictures between 
them requires some thought or even 
special transfer routines. 

The program listed here, Pix Files, 
provides a convenient means for inter- 
format picture file transfer. The picture 
formats include: 

1) Standard PMODE4 Picture — This 
is the normal Extended BASIC format 
with the picture LOADMed and SAVEMed 
between RAM locations $E00 and 
$25 FF. 

2) CoCo Max Picture — This format 
is similar to Standard, except two 
screens, all eight graphics pages, are 
LOADMed and SAVEMed between RAM 
locations $E00 and $3DFF. CoCo Max 
files always have the extension MAX. 
It should be noted that the single 
screen file produced by CoCo Max, 
SCREEN] BIN, is a Standard format 
picture. 

3) Graphicom Picture — The Graph- 
icom file format is completely unique. 
It stores 24 pictures plus the Graphicom 
directory and working font on sequen- 
tial sectors and tracks, skipping over the 
standard disk directory, Track 17. 


Pictures are loaded and saved from 
specific areas of the disk by selection 
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from the Graphicom illustrated direc- 
tory. 

Pix Files is completely self-prompting 
and menu driven. Most operations are 
performed using the right joystick. 
Pictures can be loaded and saved to any 
disk drive. If you have more than two, 
change DX in Line 740 to the number 
of drives you intend to use. 

Several error traps are built-in: 

® Graphicom disks are checked for 
proper format. 

@ Before SAVEM for Standard and 
CoCo Max pictures, the disk is 
checked for sufficient storage 
space. This also prevents a SAVEM 
to a Graphicom disk. 

@ A check is made for Standard files 
to ensure that they are 6,144 bytes 
long. 

@ Filenames cannot exceed the max- 
imum number of characters. 

@ A Graphicom LOAD’SAVE can be 
aborted by selecting a blank screen 
at the top of the illustrated direc- 
tory. 

@ CoCo Max files must have the 
extension MAX. 


The principle behind PixFiles is to 
first retrieve the picture you want to 
transfer from its source disk and place 
it in the Standard picture area of RAM. 
You can then examine it using “see 
working pix” on the main menu. This 
working screen picture is then saved to 
the destination disk in the selected 
format. 

The only tricky part to keep track of 
is that CoCo Max pictures use two 
screens. After loading, if you intend to 
transfer the first (upper) screen, then 
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16K el 








answer “no” to the “copy screen 2 to 
working pix?” prompt. To transfer the 
second (lower) screen, answer “yes.” 

To transfer pictures to CoCo Max, 
they are first saved in temporary files. 
Pictures can be temporarily saved as 
Screen 1 or Screen 2. You must have 
pictures temporarily saved to both 
screens before the final “save screens 1 / 
2.” The temporary files and the final 
save must be on the same drive and disk. 

If you are typing in the listing, the 
comments may be deleted. After enter- 
ing and saving the program, start de- 
bugging, but be sure to use backups of 
all the picture files you are working 
with! 

A blank space has been left on the 
main menu. This is for you to add your 
own routine or call another program. 
This is a handy place for a screen print 
routine, for example. 

(You may contact the author of this 
program with any questions at 4333 
Larchwood Circle, NW, Canton, OH 
44718, phone 216-492-7819. Please 
include an SASE when writing.) C) 
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Yn 198 


290 .......54 





430 ....... 52 
§50 ...... 111 
700 .......17 
880 ......165 
970 ......206 


END..... 


The listing: PIXFILES 


18 ‘PIX FILES 

28 ‘JOSEPH KOHN 

38 '4333 LARCHWOOD CR.,NW 

49 ‘CANTON, OH 44718 

50 IFX=STHENPCLEARS8 : X=1:GOTO59@ 
69 CLEAR3$99, &H7FFF: DIMF$(68) ,GS 
(49,39) ,X$(22) : FB=&HFF£$ : DK=&HCP 

$4: PB=PEEK (DK+2) *256+PEEK (DK+3) : 

DR=PEEK (PB+1) 

79 DATA GRAPHICOM PIX,graphicom 

pix,COCO MAX PIX,coco max pix,ST 

ANDARD PIX,standard pix,SEE WORK 

ING PIX,see working pix,PIX DRIV 

E,pix drive, , ,QUIT,quit,TEMPOR 

ARY SAVE SCREEN 1,temporary save 
screen 1,TEMPORARY SAVE SCREEN 
2,temporary save screen 2 

88 DATA SAVE SCREENS 1/2,save sc 

reens 1/2,ABORT SAVE,abort save, 

xX 

99 READX$(X) : IFX$ (X) <>"X"THENX=X 

+1:GOTO99 

199 PMODE4,1:X$="PIX FILES":GOSU 

B819: LN=$: FORX=$TO6: PRINT@66+64* 

X,X$(2*X) sNEXT:GOTO759 

119 JX=JOYSTK(P) :JY=INT (JOYSTK(1 
)/16) sTY=JY-(JY=5) :IFJY<>LN THEN 
PRINT@66+64*LN, X$ (2*LN) : SOUND1P9 
1 

’ 

126 PRINT@66+64*TY,X$ (2*JY+1) 7: 

FJY>2THEN13 PS ELSEIFJX<32THENPRINT 

"; load SAVE":LS=SELSEPRINT": L 

OAD save":LS=1 

138 IFPEEK(FB) ANDITHENLN=JY: PRIN 

T@331,DR:GOTOL1ISELSEON JY+1 GOTO 
158,399,569,719,74f,118,779 

149 '<---- graphicom load/save 

158 X$=X$($) :GOSUB819 

169 GOSUB879: IFYN=STHEN199 

179 GOSUB999: IFN=STHEN1929 


189 GOSUB819:GOSUB889: IFYN=STHEN 
LESPELSEGOSUB2598: IFSN<STHEN1P2HEL 
SEIF LS THEN229 

199 'e---- load graphicom 

298 PCLS1:SCREEN1:W=2 : AD=&HES9:G 
OSUB329:GOTO199 

218 'e---- save graphicom 

228 SCREEN] :AD=&HEP# : W=3 : GOSUB32 
9: IFSN=PSTHEN199 

239 GET(216,162)-(255,191) ,GS,G: 
PMODE4 , 5: SCREEN1: PUT (X1, Y1) -(X2- 
2,Y¥2-2) ,GS, PSET: SN=$: AD=&H2699:W 
=3 ;GOSUB329:GOTO199 

249 Serene load graphicom directo 


ry 

259 PMODE4, 5: PCLS1:SCREEN1 

269 AD=&H2699: SN=9 : W=2 : GOSUB329 
278 '----- select pix 

289 X=INT(JOYSTK(#)/11) :Y=INT(JO 
YSTK(1)/13) 

298 Yl=(Y-(Y>Q) ) #32:X1l=X*424+1:X2 
=X1+41: Y2=Y1+31: FORC=9TO1: COLORC 
: LINE (X1, Y1)-(X2,Y2) , PSET, B: NEXT 
3% IFPEEK(FB) AND1LTHEN28SELSESN= 
Y¥*6+X-4: PMODE4, 1: IFSN<$THENCLS: P 
RINT"abort from graphicom":RETUR 
NELSERETURN 

319 '----- graphicom i/o,w=2/3=re 
ad/write,tr=track,s=sector, azadd 
ress ,dk=dskcon 

329 S=SN*24;:TR=INT(S/18) :S=S-(TR 
#18)4+1 
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339 IFTR>17 OR (TR=17 AND S>1)TH 
ENS=S+2: IFS>18THENS=S-18 : TR=TR+1 
349 FORI=$TO23 :A=AD+256%*I: POKEPB 
, Ws POKEPB+1, DR: POKEPB+2, TR: POKEP 
B+3,S:POKEPB+4, INT (A/256) : POKEPB 
+5,A-256* INT (A/256) sEXEC PEEK(DK 
) *256+PEEK (DK+1) 

358 S=S+1: IFS>18THENS=1: TR=TR+1 
369 IFTR=17 AND S=2THENS=4 

378 NEXT: RETURN 

388 'e---- coco max load/save 

399 X$=X$(2) :GOSUB819 

409 GOSUB879: IFYN=STHEN1 99 

418 GOSUB819:GOSUB889: IFYN=STHEN 
1SMELSEIF LS THEN469 

429 '----- load coco max 

438 GOSUB999: IFN=STHEN1P2SELSEPC 
LS1:SCREEN1: LOADMF$ (VAL(K$) )+DR$ 


449 GOSUB819:PRINT"COPY SCREEN 2 
TO WORKING PIX?":GOSUB859:IF YN 
THENFORX=5TO8: PCOPY X TO X-4:NE 

XT: GOTOLSSZELSE1Z9 

459 'er--- save coco max 

469 GOSUB819: LN=9: FORX=$TO3: PRIN 

TQ66+64*X,XS$ (2*X+14) :NEXT 

479 JX=JOYSTK(#) :JY=INT (JOYSTK(1 

)/28) sIFLN<>JY THENPRINT@66+LN*6 

4,X$(2*LN+14) :SOUND199,1 

480 PRINT@66+64*JY,X$ (2*J7Y+15) :I 

FPEEK (FB) AND1ITHENLN=JY : GOT0479 

498 ON JY+1 GOTO0599,519,538,199 

598 IFFREE(DR) >2THENT1(DR)=1:SCR 

EEN1:SAVEM"TEMP/$91"+DR$, &HEQD, & 

H25FF, &HAS27 :GOTO47SELSE1939 

519 IFFREE (DR) >2THENT2 (DR) =1:SCR 

EEN1: FORX#1T04:PCOPY X TO X+4:NE 

XT: SAVEM" TEMP/682"+DRS$, &H2609, &H 

3DFF , &HA927 : GOTO47fELSE1939 

526 IFJY=3THEN1#9 

539 GOSUB819:IFT1(DR)=9 OR T2(DR 

)=STHENLSSSGELSELINEINPUT"FILE NA 

ME? ";FS:IF FS="" OR LEN(F$)>8 T 

HEN19§49 

549 T1(DR) =: T2 (DR) =9: PCLS1: SCRE 

EN1: LOADM"TEMP/991"+DRS$ : KILL" TEM 

P/P1"+DR§ : PMODE4, 5: PCLS1: SCREEN 

1: LOADM" TEMP/982"+DRS$ : KILL" TEMP/ 

$02"+DR$:SAVEM FS$+"/MAX"+DR$, &HE 

$9, &H3IDFF, &HAP27 : GOTOLPP 

559 '----- standard load/save 

568 X$=X$ (4) :GOSUB819 

578 GOSUB87$:GOSUB839: IFYN=STHEN 

122 

588 GOSUB819:GOSUB889: IFYN=STHEN 

1ZPELSEIF LS THEN689% 


599 '-----load standard 
6292 GOSUB999: IFN=PSTHEN1$29 
619 '----- check file length 


629 NAS$=F$(VAL(K$) )+DR$:OPEN"D", 
1,NA$,1:FIELD1,1AS C$:R=1 

639 GET#1,R:IFASC(C$) =255THEN659 
649 GET#1,R+1:L=256*ASC(C$) :GET# 
1,R+2:L=L+ASC (C$) :GET#1,R+3:A=25 
6*ASC(CS) :GET#1,R+4:A=At+ASC(C$) : 
SA=A:R=R+L+5:GOT0639 

659 GET#1,R+3:E=256*ASC(CS$) :GET# 
1,R+4:E=E+ASC (C$) : EA=A+L-1: CLOSE 
#1 

669 IF EA-SA<>&H17FF THENCLS: PRI 
NT"not a picture file": GOTO1#29E 
LSEPCLS1:SCREEN1: LOADMNAS:GOTO19 


679 '--r--- save standard 

689 IFFREE (DR) <3THEN1939 

699 GOSUB819:LINEINPUT"FILE NAME 
/EXT? “:FIS:IFLEN(FI$)>13 OR FI$ 
=""THENLSPELSESCREEN1:SAVEM FIS$+ 
DRS, &HESP, &SH25FF, &HAG27 : GOTO1PP 
799 'ernn- see working pix 

719 SCREEN1:GOSUB839 

729 IFPEEK (FB) AND1THEN72fELSE199 
739 '-<--- pix drive,dx=number of 


748 DX=2:DR=DR+1:IFDR=DX THENDR= 


g 

758 DRS=":"+MID$(STR$(DR),2,1):P 
RINT@331, DR: SOUND199,1:GOTO119 
769 'o<--- quit 

779 X$=X$(12) sGOSUB819 

789 PRINT"ARE YOU SURE?":GOSUB85 
g 
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798 IF YN THENUNLOAD:CLS:END ELS 

E1pp 

899 '----= title display 

819 CLS: X=LEN(X$) :Y=INT((32-X) /2 

) sPRINTSTRINGS (Y, "*") X$STRINGS (3 

2-X-Y, xe") 

828 '----- fire button debounce 

839 FORX=$TO199:NEXT: IFPEEK(FB)A 

ND1THENRETURNELSE839 

849 '<--- prompts 

859 IFJOYSTK(#) <32THENPRINTE@135, 

"yes NO": YN#lELSEPRINT@135, "YES 
no": YN= 

869 IFPEEK(FB) ANDITHEN85SELSE832 

8768 PRINTX$(LN*2)" DISK IN DRIVE 

"DR"? :GOTO852 

888 PRINT"READY TO ";:IF LS THEN 

PRINT" SAVE?" : GCOTO85SELSEPRINT" LO 

AD?" :GOTO85# 

899 tom disk file search 

999 CLS: PRINT"SEARCHING...":N=9: 

FORZ=3T011:DSKI$ DR,17,Z,B$(9) ,B 

$ (1) s FORQ=PTO1: FORW=$TO3 : K$S=MID$ 

(B$(Q) ,W*32+1,32):IF ASC(K$) =255 

THENZ=99 : W=Z :Q=Z: GOTO95@ 

919 IFASC(K$)=$THENS5SELSEON LN+ 

1 GOT0929,93f,94f 

929 IFMIDS$(K$,12,1)=CHR$(1) AND 

LEFTS (K$,11) ="PICTURESGCM"THENN= 

1:GOTO95SELSE959 

939 IFMID$(K$,9,3)="MAX" AND MID 

$(K$,12,1) =CHRS$ (2) THENN=N+1: F$ (N 

) =LEFTS (K$, 8) +"/MAX" : GOTO95SELSE 

958 

949 IFMID$(K$,12,1)=CHR$(2) AND 

MIDS (K$,9, 3) <>"MAX" THENN=N+1: F$ ( 

N) =LEFTS (K$,8)+"/"+MID$ (K$,9,3) 

959 NEXTW,Q,Z:IFN=9 AND LN=$THEN 

CLS: PRINT"not a graphicom disk": 

RETURN 

969 IFLN=STHENRETURN 

979 IFN=f$THENCLS: PRINT"no pictur 

es": RETURN 

989 CLS:Q=1: FORZ=1TO3 : FORW=1T039 

: PRINT@ (W-1) #16, ""; : PRINTUSING" # 

#":Q3: PRINT"."FS(Q) :IFQ=N THENW= 

99: Z=W 

999 IFINT(Q/3f) =Q/3STHENPRINT@48 

9, "CONTINUE...";: LINEINPUTKS : NEX 

TZ 

1989 Q=Qt+t1:NEXTW,Z:PRINT@489,""; 

sINPUT"NUMBER OF PIX TO LOAD";K$ 

: IFK$S=""ORVAL(K$)<1 OR VAL(K$) >N 

THENN=9 : GOTO97 PELSERETURN 

1G18 '----- error messages 

1928 SOUND59, 19: FORX=$TO1999:NEX 

T:GOTO199 

1938 CLS:PRINT"no room on disk": 

GOTO192p 

1948 CLS:PRINT"improper file nam 

e":GOTO1929 

1959 CLS:PRINT"no temporary file 

">: IFT1(DR)=9 AND T2(DR)=$THENPR 

INT"s"ELSEIFT1(DR)=*STHENPRINT" 1 

“ELSEPRINT® 2" 

1969 GOTO1#29 Oo 
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UTILITY 16K BASIC 
by Rod Hoskinson 

RIDDLE: Extended Color Basic users have independent (it can go anywhere in 
the EDIT command, MC-10ers have their memory), and it is automatically poked 
little e, but how do CoCo users without into the top of RAM for a 16k or 32k user. 


Extended Basic edit a basic program line 
without retyping the whole of it all over 
again? 

ANSWER: LEDIT command, of 
course. LEDIT? No, it has nothing to do 
with those little red lights. LEDIT 
stands for LINE EDIT, and is available via 
UTILPACK. 


Ready for another riddle? 


Using the 


Okay, why is 


this new thing called LEDIT, rather than 
just edit? 
ANSWER: for the very good reason that 


this preserves compatibility with ECB and 
DECB, because there is something in 
UTILPACK for all CoCo Users. 


I bet there is not a reader out there 
who has not at some time cursed CoCo’s 
destructive cursor. Everyone must know the 
feeling - you have just typed a long line 
from command mode or during an INPUT, then 
you realise you have made an error at the 
start of the line. 

Well curse no more, and enjoy the luxury 
of on screen editing with UTILPACK! 


Have you ever wondered what it would be 
like to have a few more BASIC commands at 
your disposal? Can’t remember all those 
peeks and pokes? Then know that UTILPACK 
also feastures FAST, to put CoCo in the 
1.78 MHz mode, SLOW to bring CoCo back to 
a more leisurely 0.89 MHz, and COLD to 
perform a cold start. 

ECHO ON will copy all screen output to 
your printer if it is online, and ECHO OFF 
will stop this. 


To get this package of utilities up and 
running, type the following program, then 
do a few CSAVEs before RUNning. The 
program includes a checksum to help detect 
typing errors. If the program detects a 
checksum error, you will have to carefully 
re-examine the DATA lines. 


The BASIC program pokes UTILPACK, which 
is 806 bytes of machine code, into high 
memory. The machine code is’ position 


Additionally the program automatically 
configures itself for non-ECB, ECB, or 
Disk ECB. (I have tried it on non-ECB and 


ECB and it works fine. I haven’t tried it 
with a disk system but am almost certain 
it will run with no trouble). 

Once you have RUN UTILPACK, you should 
see a sign on message and immediatley 
notice a change - the cursor should be a 
steady block square. If you have got this 
far, chances are things are 100% 0.K. If 
you have repeated trouble, I suggest you 
obtain this program on a CoCoOz cassette, 
if you have not already done so. 


Now you should be ready to try out 
UTILPACK. Type away at the keyboard, then 
hit the left arrow (backspace) key. The 


cursor 
characters, Try the right 
forward cursor movement. The cursor will 
be the inverse of the current character. 
Hitting the shift left or right arrow will 
move the cursor to the start of end of the 
buffer. 

To delete the character under the 
cursor, hold down the clear key (which has 
been reprogramed as a control type key), 
and press the left arrow. To open up a 
space for insertion, hold clear down and 
press the right arrow key. To use the 
CLEAR key as normal, hold clear and press 
the commercial at (@) sign. This clears 
the screen and homes the cursor. 

Because the shifted right arrow is now 
used for cursor movement, you obtain a 
closed square bracket by pressing the down 


will move, but will not delete any 
arrow key for 


arrow. Pressing any key other than those 
described will replace the current 
character. 

You can use this screen editor in 
command mode, or from an INPUT or 


LINEINPUT command within a progran. 

To use the new LEDIT command, type 
LEDIT, followed by the line number of the 
line you wish to edit. If the line does 
not exist you will generate a UL ERROR. 
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ECHO OFF. 

If you like the features of UTILPACK, 
you should get into the habit. of 
installing it at the start of any 


The line you are editing will be printed 
with the cursor at the start. You have all 
the features of the screen editor at your 
disposal. When you have finished editing, 


press <ENTER>. Pressing BREAK at this programming session. The new commands are 
stage will cancel any changes you have tokenised and can be used in immediate 
made. You can always enter or break no mode within a program. Make sure UTILPACK 
matter where in the line the cursor is is running before CLOADing a program that 
located. uses the new commands. 

Apart from LEDIT, try the other new I hope you will find this program 
commands: FAST, SLOW, COLD, ECHO ON or useful. 


The listing: 


1 REM UTILPACK=ENHANCEMENTS TO B 

ASIC BY ROD HOSKINSON V1.1 1986 
2 GOTO 10 

3 CSAVE" UTILPACK” 

10 POKE32767, 50 

20 IFPEEK(32767)=50 THEN AD=3196 
2 ELSE AD=15578 

30 CLEAR200, AD-1 

40 IFPEEK(32767)=50 THEN AD=3196 
2 ELSE AD=15578 

50 CHECKSUM=0 

60 FOR I=AD TO AD+805 

70 READ Q$:GOSUB270 

80 POKEI,Q 

90 CHECKSUM=CHECKSUN+Q 

100 NEXT I 

110 IF CHECKSUM<>84404 THEN PRIW 

T” ERROR IN DATA-RETRY”: END 

120 IFPEEK(298)=0 THEN POKE AD+6 

9,42: POKEAD+172, 185: POKEAD+176, 1 

81: ELSE IFPEEK(308)<>0 THEN POKE 
AD+69,62: POKE AD+172,229: POKE A 

D+176, 225 

130 EXEC AD 

140 CLS: PRINT’ BASIC ENHANCEMENTS 
V1.1 1986 BY ROD HOSKINSON A 

RE NOW LOADED": PRINT” MEM=" MEM+30 


160 DATA 30, 8D, 0, 49,31, 8D, 0, 8C, 1 
0, AF, 8D, 0, 41, 31, 8D, 0, 98, 10, AF, 8D 
,0,3A, 31, 8D, 0, AC, 10, AF, 8D, 0,9D,3 
1,8D,0, AA, 10, AF, 8D, 0, 96, 31, 8D, 0, 
A8, 10, AF, 8D, 0, 8F, 31, 8D, 0, A4,10,A 
F, 8D, 0, 88, 31, 8D, 0, C0, 10, AF, 8D, 0, 
81, CE, 1,34, C6, B, BD, A5, 9A 

170 DATA 20,B,5,75,C4, 75, D9, 0,0, 


One-Liner Contest Winner. . . 


This short program, called Grader, is mighty useful 
to students who have a number of test grades and want 


0,0, 0,0, 86, 7E, B7, 1,82, 30, 6D, 0, F3 
» BF, 1,83, F6, 1,67, E7, 8C, 26, BE, 1,6 
8, AF, 8C, 21, B7, 1,67, 30, 8D, 0,4, BF, 
1,68,39, 34,4, D6, 6F,C1, FE, 27, B, E6 
»8D,0,C,C1, FF, 26,3, BD, A2, BF, 35,4 
» 7E, 82,73,0,46,41 

180 DATA 53,D4,53,4C,4F,D7,43, 4F 
»4C,C4,45, 43, 48,CF,4C, 45, 44, 49, D 
4,34,1,81, D2, 22,9, 80, CE, 48, 33, 8D 
, 0,6, 6E, D6, 6E, OF, 1, 46, 75, F6, 75, F 
D, 76,4, 76,9, 76, 2E, 7F, FF, D7, 9D, OF 
» 35,81, 7F, FF, D6, 9D, OF, 35, 81, F, 71 
» 7E, AO, 27, 9D, OF, 81,20,27, FA, 81,A 
A 

190 DATA 27,7,81,88,27,B, BD, A5,C 
9, 6F, 8D, FF, AS, 9D, 9F, 35, 81, 6F, 8D, 
FF, 9D, 6A, 8D, FF, 99, 9D, 9F, 35, 81, 9D 
,9F, BD, AF, 67, BD, AD, 1, 24,3, 7E, AE, 
D2, BD, B7, C2, 8E, 2, DD, A6, 80, 81,0,2 
6,FA,30,1F, AF, 8D, 1,A7, DC, 2B, BD, B 
D, CC, BD, BY, AC, 8E, 2, DD, A6, 80, AD, 9 
F 

200 DATA AO,2, 81, 0,26, F6, EC, 8D, 1 
» 8E, 83,2, DD, 34, 6, DC, 88, A3, E1, DD, 
88,8E,2,DD, 17,0, 1A, 25, 8, 8E, 2, DD, 
OF, A6, 7E, AC, A8, 7E, AC, 76, 8E, 2, DD, 
32,62, AF, 8D, 1,67, 6F, 84, 6F,1,C6,1 
,17,0,93,17,1,52,81, BF, 10,27,0,4A 
6, BD, A1,C1, 81, 0,27, FO, 81 

210 DATA 8,27, 4A, 81,9, 27,5D, 81,1 
9,10,27,1,6A,81,5D,10,27,1,7D, 81 
»A,10,27,1,91,12,12, 12,12, 81,3,1 
A,1,10,27,1, 2A, 81,D, 26,3,16,1,48 
,81,C, 27, BF, 8C, 3, DB, 27, BA, A7, 80, 
AC, 8D,1,12,25,6, 6F, 84, AF, 8D,1,A, 
5C, AD, 9F, A0,2,17,0, 37 

220 DATA 20, A2, 8C,2, DD, 27, 9D, 17, 
0,2D, 30, 1F, DC, 88, 83, 0,1, DD, 88, 17 
»0,21,5A, 20, 8B, 8C, 3, DB, 27, 86, AG, 


Hint... 


84, 81, 0,27, 80, 30, 1,17, 0, E, DC, 88, 
C3, 0,1, DD, 88, 17, 0,4, 5C, 16, FF, 6D, 
DE, 88, A6,C4, 81, 40, 25, F, 81, 80, 25, 
6,86, 20, A7, C4, 20, EE, 80, 40 

230 DATA A7,C4, 39, 8B, 40, A7, C4, 39 
,BD, A1,C1, 81, 0, 10, 27, FF, 48, 81, 8, 
27, 1C,81,9, 27,44, 81, 40, 26, 11, BD, 
AQ, 28, 8E, 2, DD, AF, 8D, 0,90, 6F, 84,6 
F,1, 16, FF, 26, 16, FF, 28, DE, 88, 34,5 
0,1F,12,31,21, A6, AO, A7, 80, 81, 0,2 
7,6, AD, 9F, AO, 2, 20, F2, 86, 20, AD, OF 
240 DATA AO, 2,30, 1F, AF, 8D, 0, 64,3 
5,50, DF, 88, 17, FF, 92, 16, FE, FC, DE, 
88, 34,50, AE, 8D, 0,52, 8C, 3, DA, 25,5 
, 35,50, 16, FE, EA, A6, 84, A7, 1, AC, E4 
27,4, 30, 1F, 20, F4, 86, 20, AD, OF, AO 
,2, 47,80, A6, 80, AD, OF, AO, 2, 34, 2, 1 
F, A8, 81, 80, 26, 7, EE, 63, 33, C8, EO 
250 DATA EF,63, 35,2, 81, 0, 26, E5, 3 
0, 1F, AF, 8D, 0, 13, 35,50, DF, 88,17,F 
F,41, 16, FE, AB, 86, FD, B7, FF, 2, B6, F 
F, 0,39, 2, DD, 34, 1,17, FF, 2E, AC, 8D, 
FF, F5, 27, E, DE, 88, 33, 41, DF, 88, 30, 
1, AC, 8D, FF, E7, 26, F4, 35, 1,34, 1, BD 
, BO, 58, 8E, 2, DC, 35, 81, 4F, 20, D8 
260 DATA 17, FF, 8, 8C, 2, DD, 27,B,5A 
, 30, 1F, DE, 88, 33, 5F, DF, 88, 20, FO, 1 
7, FE, F5, 16, FE, 5F, 17, FE, EF, AC, 8D, 
FF, B6, 27, B, 5C, 30, 1, DE, 88, 33, 41, D 
F, 88, 20, EF, 17, FE, DB, 16, FE, 45, 86, 
5D, 16, FE, 7D 

270 Q$=RIGHTS (00"+Q$, 2) 

280 A$=LEFTS (Q$, 1): BS=RIGHTS (QS, 
1) 

290 IFA$>="A" THENH=ASC (A$)-55 EL 
SE H=ASC (A$)-48 

300 IFB$>="A" THENL=ASC(B$)-55 EL 
SE L=ASC (B$)-48 

310 Q=H*16+L: RETURN 


Repairing Deluxe Joysticks 


to compute their grade average. All grades must be 
entered in number form. 


There have been a number of reports of problems with 
Radio Shack’s Deluxe Joystick, where the stick becomes 
loose and you no longer have control. I’ve found that a pin 
that holds one of the control levers to the joystick ball tends 
to work itself out of the ball. 

After opening the joystick case, you'll see a pin on one 
of the levers that now faces the case instead of the ball. Hold 
the stick so that the hole in the ball lines up with this pin, 
and use needle-nose pliers to push the pin back into place. 


The listing: 


1 CLS: T=9:G=9:A=9: INPUT"# OF TES 
TS";N: FORX=1TON: INPUT" GRADE" ;G:T 
=T+G:NEXTX:A=T/N: PRINT" YOUR AVER 
AGE IS ";A: INPUT"AGAIN" ;AS: IFAS= 
"Y"THENGOTOLELSEEND 


Judy Zoll Leo 


Skillman, NJ — Fd Ellers 
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tain Nick Hazard is sailing through 
deep space in his Blue Death Suit. He 
sends another dread Rotundo to its 
maker!” 

“That’s not Captain Nick Hazard,” I 
told the kid. “It’s a hummingbird. And 
the orange things are just bubbles, not 
some kind of space creatures.” 

“They’re the most-feared space crea- 
tures of all! They want to turn Captain 
Nick inside out!” 

“Will you stop it?” I asked. “This is 
a non-violent arcade game for CoCo 
computers with at least 16K memory, 
Extended Color BASIC and one Jjoy- 
stick.” 

“This is the most violent game I’ve 
ever played!” yelled the kid. “Ping! 
Pow! Bar-room! Yucko, look at ’em 
splatter!” 


I withdrew. The kid playing the game 
Bubble War was and still is my son. He’s 





The listing: BUBBLWAR 


16 REM * BUBBLE WAR * TRS-8f EX 
TENDED COLOR BASIC 16K * 

118 REM * BY RICHARD RAMELLA * 
128 REM * REQUIRES ONE JOYSTICK 
* 


138 POKE 65495, 


148 CLEAR 256 
159 PL$="L255;GFEDCBA" 
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10. At age 3 he wanted a toy gun. When 
my wife and I refused, he chewed a 
graham cracker into the shape of a 
pistol and genially “powed” anyone 
who came near his high chair. 

Not much has changed in the last 
eight years. 

Despite its name, Bubble War 1s a 
gentle but tricky arcade game that 
involves nothing more violent than a 
blue hummingbird popping orange 
bubbles. It demonstrates how to have 
fun without destroying the universe. 

_ If your computer won’t accept the 
speed POKE 65495, 9, delete Line 130. 

At the start of the game, a white 
screen bordered by green appears. 
Within it is a wing-flapping blue hum- 
mingbird. Using the joystick, you can 
move the bird around the screen at a fair 
clip. It goes either northeast, southeast, 
southwest or northwest, depending on 
the quadrant in which the joystick is 
being held. Push the firebutton on the 
joystick and the hummingbird fires in 
the general direction it’s traveling — left 


169 DIM M1(1,6) ,M2(1,6) 
179 CLS 

189 HG=19 

199 PG=19 

208 PRINT @ 235, 
219 PMODE 3,1 
228 PCLS l 

239 COLOR 3,5 
249 P=128 

259 Q=96 

269 FOR G=1 TO 2 
276 CIRCLE(19,19),5,3,1.5 

289 CIRCLE(19,5),7,3,.3 

299 LINE(4,11)-(17,11) ,PSET 

399 IF G=l THEN LINE -(19,15),PS 
ET ELSE LINE -(1,5),PSET 

319 LINE -(4,11) ,PSET 

329 IF G=1 THEN GET(#,#)-(28,2f) 
»M1,G ELSE GET($,f)-(28,29) ,M2,G 
339 PCLS 1 

34Q NEXT G 

358 SCREEN 1,1 

366 CIRCLE(128,96) ,255,6 

379 U=119 


“BUBBLE WAR" 
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if moving westward, right if eastward. 

Aim and fire to burst bubbles. Hits 
are scored according to the current size 
of orange bubbles appearing on the 
screen. Avoid taking the hummingbird 
too near any orange bubble or debris 
thereof; this will end the game. 

From time to time, the action freezes 
and a colorful series of concentric 
circles spreads over the screen. The 
screen blanks and play resumes. This is 
done to wipe out bubble debris. 

To see a current score during the 
game, press keyboard letter ‘X’, then 
press any other key except SHIFT or 
BREAK to continue play. 

My son persists in imagining danger 
and triumph in his games. Sometimes I 
try to tell him that all computer arcade 
games are comprised in totality of but 
one fundamental idea. There are teams 
of light, whether two pixels or a thou- 
sand complex graphics shapes. One 
team chases, the other evades. As the 
player you may be on either side. The 
mind fills in the rest of the fantasy. 


389 R=86 
399 IF U<5 THEN U=5 ELSE IF U>22 
9 THEN U=229 

499 IF R<l THEN R=1 ELSE IF R>17 
§ THEN R=179 
419 CT=CT+1: 
B 1989: CT=9 
426 PUT(U,R)-(U+2f,R+2f) ,Ml,PSET 
439 PSET(X,R-1,3) 

449 IF PPOINT(U-1,R-1)=8 OR PPOI 
NT(U+19,R-1)=8 OR PPOINT(U+21,R- 
1)=8 OR PPOINT(U-1,R+1)=8 OR PP 
OINT(U+21,R+1$)=8 OR PPOINT(U-1, 
R+21)=8 OR PPOINT(U+1f,R+21)=8 O 
R PPOINT(U+21,R+21)=8 THEN 879 
459 S=RND(PG) 

468 IF S=1 THEN GOSUB 629 

479 K=JOYSTK(f) 

489 L=JOYSTK(1) 

499 PUT(U,R)—-(U+29,R+29) ,M2,PSET 
599 IF K>31 THEN U=U+4 

519 IF K<3l THEN U=U-4 

529 IF L>31 THEN R=R+4 

539 IF L<3l1 THEN R=R-4 

549 PK=PEEK(6528f) 


IF CT>159 THEN GOSU 
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559 IF PK=126 OR PK=254 THEN GOS 
UB 599 

568 XGS=INKEY$ 

579 IF XG$="X" THEN GOSUB 989 
589 GOTO 399 

5998 IF K>3l THEN GOSUB 719 

699 IF K<31 THEN GOSUB 799 

619 RETURN 

628 G=RND(255) 

639 P=RND(191) 

649 IF G>U-21 AND G<U+42 AND P>R 
~21 AND P<R+42 THEN 729 

659 CIRCLE(G,P),HG,8 

669 PAINT(G,P) ,8 

678 NN=NN+1 

689 IF NN=1$ THEN HG=HG+5: NN=9: 
JK=JK+l: IF JK=2 THEN PG=PG-1 
698 IF PG<l THEN PG=1 

799 RETURN 

716 M=U+22 

728 N=R+9 

739 IF M>253. THEN RETURN ELSE PS 
ET(M,N,3) 

748 S=RND(PG+22) 

758 IF S=l THEN GOSUB 629 

769 V=PPOINT (M+2,N) 

779 IF V<>5 AND V<>7 THEN 939 EL 
SE PRESET(M,N): M=M+5: GOTO 739 
789 RETURN 

798 M=U-1 

899 N=R+19 

816 IF M<2 THEN RETURN ELSE PSET 
(M,N,3) 

828 S=RND(PG+22) 

839 IF S=l THEN GOSUB 629 


continued from Page 13 


Commandos: © 


3952 I$=STRS$(I) :H$=STRS$ (H+5) :V$= 
STRS (V+5) 

3954 DRAW"C"4+1S+"sBM"+HS+", "4V$+ 
BL$ 

3956 NEXTI,J 

3969 LI=LI-1:IF LI<=9 THEN 3989 
3079 ON PH GOTO 358,1999, 2999 
3989 CLS:PRINT"YOUR TEST IS OVER 
“ 


3098 PRINT" *XRATING RR" 

3198 PRINT" LAST LEVEL COMPLETED: 

"sLV-1 

3119 PRINT" # OF LIVES SAVED:"; 

3129 IF PH>2 THEN PRINTLV ELSE P 

RINT LV-1 

3139 PRINT" RANK: ";:IF LV =1 THEN 
PRINTR$(1) ELSE IF LV =6 AND I 

I=1 THEN PRINTR$(6) ELSE PRINT R 

$ (LV-1) 

3149 PRINT"SCORE:";SC 

3158 IF LV<6 OR II=$ THEN 3155 

ELSE PRINT"TIME TO COMPLETE COUR 

SE:";TT/18$:GOTO 3169 

3155 PRINT" PRESS ANY KEY" 

3156 AS$=INKEYS$:IF AS=""" THEN 315 

6 ELSE 6299 

3169 PRINT" PRESS ANY KEY" 

3176 AS=INKEYS:IF AS=""THEN 3179 

3188 PMODE3,1:PCLS:SCREEN1,9 

3198 CIRCLE(159,59) ,22,2:PAINT(1 

52,58) ,2,2:CIRCLE(159,59) ,39,2 

3208 PAINT(159,25) ,3,2 

3218 DRAW"C2;BM169, 88 ;ND7$G19H19 

ND7SL1IPDSPELSD2ZGELSF1ISU2ZSF1SUSON 

L1PR1SU2HE1PH1SU2PL2PH1PG1PL2GD2 

PGIPF1IPD2GR196" 

3228 DRAW"C3;BM142,49;R2S9BG29R29 

BH28BG5D19R7U1{BRSNR7D5R7DSNL7BR 


849 V=PPOINT (M-2,N) 

859 IF V<>5 AND V<>7 THEN 939 EL 

SE PRESET(M,N): M=M-5: GOTO 819 

869 RETURN 

8768 FOR T=1 TO 15 

889 PUT(U,R)-(U+29,R+29) ,M1,NOT 

899 PLAY PLS 

996 NEXT T 

916 XX=1 

929 GOTO 989 

939 IF V=6 THEN 959 

949 IF V=8 THEN CIRCLE(M,N) ,25,5 
PAINT(M,N),5,5: PLAY PL$: SC=S 

C+ (HG*19) 

959 IF V=6 THEN PRESET(M,N) 

969 CIRCLE(128,96) ,255,6 

979 RETURN 

989 IF XX=1 THEN POKE 65494,: P 

RINT @ 331,"F INA L"; 

998 PRINT @ 235,"BUBBLE WAR"; 

1698 PRINT @ 363,"S CORE"; 

1918 PRINT @ 394,SC; 

1929 IF XX=1 THEN YU=YU+1: PLAY 

PLS$ 

1939 IF XX=1 AND YU<49 THEN 1929 

ELSE IF YU=49 THEN END 

1948 PRINT @ 448,"TAP A KEY TO R 

ETURN TO GAME"; 

1959 XX$=INKEYS 

1669 IF XxX$<>"" THEN CLS: SCREEN 
1,1: RETURN ELSE 1959 

1979 END 

1989 FOR BN=9 TO 159 STEP 3 

1996 CIRCLE(129,96),BN,1+RND(3), 

1 





5USNR1PE5F5D5" 

3236 PAINT(135,199) ,4,2:PAINT(16 
5,198) ,3,2 

3248 COLOR2,1:LINE(49,6f)-(199,6 
6) , PSET: LINE (29,69) -(254,68) ,PS 
ET 

3259 DRAW"BM119, 29 ;NH2PBRSPNE2PB 
D8PNFIPSBLEPG39" 

3269 AS=INKEYS:IF AS="" THEN 326 


g 

3278 GOTO 692 

4999 ‘WIN 

4918 'LV1 

4928 GET(5,139)-(29,139),C,G 
4939 H=5:V=139 

4949 PUT(H,V)-(H+15,V+19) ,D 

49568 V=V-5:PUT(H,V) -(H+15,V+1f), 
C,PSET 

4969 IF V<=19 THEN 4159 ELSE 494 


g 

4679 'LV3 

4975 IF LV=6 THEN 4159 

4988 PCLS(1) 

49998 DRAW"C2;BM29,85;D19R1PSBR5NR 
1PU5NR5U5R19BR5D5F5E5U5BRS5NRIBD5 
NR5D5R19BR5NR19U19" 

41898 FORI=1TO LV+1:LINE(95+(I*5) 
,85)-(95+(I*5) ,95) , PSET:NEXT 
4119 FORI=1T01999:NEXT 

4159 'WIN1,2,3 

4155 II=1:GOSUB5pg99 

4156 SC=SC+(LV*199) 

4157 IF TI<29f THEN SC=SC+(299-T 


4158 TT=TT+TI 
4169 PH=PH+1:IF PH>3 THEN PH=1:L 


4179 IF LV>6 THEN 3989 

4189 ON PH GOTO 35f,1999, 2929 
59008 'THEME 

5918 Z$="02BG":X$="A03C" 

5829 PLAY"T603L4DDXZ$ ; ACBGO3DDXZ 
$;XX$;O02L2A03L4DD" 
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1199 IF BN<2g THEN PLAY "T128;CD 
EFGAB" 

1119 NEXT BN 

1129 PCLS1 

1138 CIRCLE(128,96) ,255,6 
1149 RETURN 

1158 END 

116 REM * END OF LISTING 








on 2 


5030 PLAY"XZ$;XX$;02BGA03CXZ$;A0 
3D02L26" 

5949 RETURN 

609% "HIGH SCORE 

6919 IF SC>SC(1f) THEN 6929 ELSE 
614p 

6f26 SC(11)=SC:N$(11)=N$:LV(11)= 


6939 Scag 

6949 IF SC=1 THEN 6149 

69598 SC=1 

6969 FORI=1T0O19 

6078 IF SC(I)<SC(I+1) THEN 6989 
ELSE 6119 

6989 SC=$:S=SC(I) :SC(I)=SC(I+1): 
SC(I+1)=S 

6099 NS=N$(I) :N$(I)=N$(I+1) sNS(I 
+1)=N$ 

6199 LV=LV(I) :LV(I)=LV(I+1) :LV(I 
+1)=LV 

6119 NEXT 

6128 GOTO 6249 

6149 CLS: PRINT@19,"*HIGH SCORE*" 
6159 PRINT" --------------------- 


6168 FORI=1T01f:IF SC(I)=9 THEN 


6176 PRINTNS$(I)" 
VEL: "LV(I) 

6188 NEXT 

6199 PRINT: INPUT"WANT TO PLAY AG 
AIN(Y/N) ";A$ 

6299 IF A$="Y" THEN 159 

6219 END 

7PPP '1 

7218 N=LEN(NS) 

7928 IF N>1g THEN 7939 ELSE IF N 
<19 THEN 7249 ELSE RETURN 

7P32 NS=LEFTS (N$,19) 

7035 RETURN 

7948 FORI= 1 TO 19-N 

7652 NS=NS+" " 

7969 NEXT: RETURN ~ 


"SC(I)" LE 


DISK UTILITY 





“Tt changes the DSKI$, DSKO$, 
DSKINI and BACKUP commands to 
operate at 36 tracks. It keeps a spare 
copy of the disk directory at Track 36. It 
can recover directories with logical errors 
and last, but most important, it can 
recover directories with physical errors.” 


Crash-Proof It! 


fter seeing a letter in “Down- 
A ice from a reader who was 

having problems restoring a 
damaged Track 17 on a disk, I wrote 
this program, Crashproof. It is very 
short and only uses up one granule. I 
used to keep Zapper on every disk to 
store and retrieve directories, but at a 
cost of five granules. 

Crashproof requires a 64K disk sys- 
tem. A copy should be kept on every 
disk for convenience. The program does 
four things: It changes the DSKI$, 
DSKOS, DSKINI and BACKUP commands 
to operate at 36 tracks instead of 35. It 
keeps a spare copy of the disk directory 
on Track 36. It can recover directories 
with logical errors and last, but most 
important, it can recover directories 
with physical errors. 





Editor’s Note: If you have the newer Radio Shack Disk BASIC 
1.1 ROM, then you will need to change the POKE addresses 
in lines 60 and 200. Change the values in Line 60 from &HD446 
and &HD1B0 to &HD534 and &HD29D respectively. Also, 
change the values in Line 200 from &HD572 and &HD595 to 


&HD6SF and &HD682 respectively. 


The listing: CRASHPRF 


LNA RRR RRREREAREEREERKKRRER 
2 '* CRASH PROOF IT!! * 
3 '* TERRY L. WILSON * 
4 ‘'* 3436 CASA GRANDE * 
5 '* BATON ROUGE LA. x 
6 '® ZIP CODE 79814 x 
JF URRERHEERERERREEERHREREEEEERKRER 
8 t 

9 CLEAR999 


1f DATA 26,88,199,128,9,183,255, 
222,166,128,183,255,223,167,31,1 
49,224,8,37,241,57 

29 FORI=1T021:READA:A$=A$+CHR$ (A 
) :NEXTI 

38 P=VARPTR(AS$)+1 

48 POKEP,126 

59 EXECP'NOW IN 64K 

69 POKE&HD446, &H23: POKE&HD1BP, &H 
24'ENABLES TRACK36 
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After the conclusion of an input/ 
output session, I type RUN”CP” and 
press ENTER at the main menu. Ina few 
seconds, Track 17 is safely stored at 
Track 36. If you maintain directories 
with more than 40 files it is advisable to 
change the ‘8’ in lines 150 and 220 to 11. 
A logical crash can be repaired in about 
a minute and a physical crash in about 
five mintues. 

It is important to note to beginners 
that all disks must have been formatted 
to 36 tracks before any files are stored 
on a disk. After choosing Option 1, any 
subsequent DSK INIO formats 36 tracks. 
Therefore, a RUN”CP” only has to be 
done once to format a new box of disks. 
After all disks are formatted, LOAD”CP” 
again and RUN1@10. Pressing any key 
puts acopy of Crashproof on your disk. 


7f CLS:PRINT@39,"CRASH PROOF IT! 
py 

89 PRINT:PRINT" (1) FORMAT NEW 
DISK TO 36 TRACKS": PRI 
NT" (2) RECOVER CRASHED DISK":P 
RINT" (COPY TRACK 36 TO 17) 
ve 


98 PRINT" (3) STILL BAD??": PRIN 

T" (OPTION #2 FAILED)" 

199 PRINT: PRINT" ENTER YOUR 
CHOICE OR" 

119 PRINT: PRINT" 
ER> TO": PRINT" 
TRACK 36" 

129 INPUT" 

HEN7# 

139 CLS:ON A GOTO 179,218,239 


149 PRINT" IF THIS DISK IS CR 

ASHED": PRINT" CRASH PROOF W 

ILL CATCH IT":DIR 

159 FOR X=2 TO 8:DSKI$ §,17,X,A$ 
,BS:DSKO$ §,35,X,A$,B$:PRINT"TR. 
17 SEC.";X"TO TR. 36 SEC.";X:PR 
INTAS ;B$: NEXT 

169 PRINT"DIRECTORY STORED AT TR 

ACK 36":FORX=1 TO 1$99:NEXT:GOTO 
7 

be CLS : PRINT@73 , ">>>CAUTION<<<" 
sPRINT: PRINT" YOU ARE ABOUT TO C 


PRESS <ENT 
COPY TRACK 17 TO 


"sA:IFA>3T 


LEAN THAT DISK AND FORMAT IT 
TO 36 TRACKS" 
188 INPUT" SURE"; X$: IFLEFTS ( 


X$,1)<>"Y"THEN7# 
199 PRINT" INSERT DISK TO BE FOR 
MATED": PRINT" PRESS ANY KE 
Y¥": EXEC44539 
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By Terry Wilson 


Option 2 performs the transfer of Track 
36 to Track 17; Option 3 allows a back 
up of all 36 tracks to another disk. After 
this operation is complete, RUN”CP” 
again and choose Option 2. As with any 
new utility, practice on an insignificant 
disk first. 

Crashproof has been written from 


information gathered from previous 


issues of RAINBOW, so no big feather in 
my cap. However, thanks to this infor- 
mation, Crashproofs a very useful, up- 
to-date utility. 


(You may contact the author of this 
program with any questions you have at 
3436 Casa Grande, Baton Rouge, LA 
70814, phone 504-272-4652. Please 
enclose an SASE when writing.) C) 


269 POKE&HD572, &H24: POKE&HD595, & 
H24:DSKINIP 

218 CLS:PRINT"INSERT BAD DISK IN 
TO DRIVE §":LINEINPUT" PRESS <E 
NTER> WHEN READY";X$ 

22 FOR X=2TO 8: PRINT" TRACK" :X:D 
SKIS 9,35,X,A$,B$:DSKO$ 9,17,X,A 
$,BS:PRINTAS: PRINTB$: NEXT: PRINT" 
DIRECTORY RESTORED" : FORX=1T0469: 

NEXT: GOTO79 

238 CLS:PRINT"THIS OPTION CREATE 
S A BACKUP":PRINT"COPY OF THE CR 

ASHED DISK. THE": PRINT"BACKUPZ C 
OMMAND HAS BEEN CHANGED"; : PRINT" 
TO BACKUP ALL 36 TRACKS SO WHEN" 
:PRINT"YOU HAVE MADE A NEW COPY, 
YOU":PRINT"MUST RUN CRASHPROOF . 
AND CHOOSE" 

249 PRINT"OPTION #2 TO RESTORE T 
HE DIREC- TORY ON YOUR NEW COPY. 
ti ] 

259 PRINT:PRINT"TYPE 'YES' IF YO 
U ARE READY TO BACKUPS" 

268 INPUT" READY" ;X$: IF 
X$="YES"THENBACKUP# 

278 GOTO7P 

1999 ' USE A RUN1919 AFTER YOU 

HAVE FORMATED ALL YOUR 
NEW DISK 

1919 CLS:PRINT@49,"CRASH PROOF I 
Ti!!":PRINT@99,"SAVE A COPY TO E 
VERY DISK": PRINT@137,"PRESS ANY 
KEY" : EXEC44539: IFFREE (f) >STHENSA 
VE"CP": PLAY"G" :GOTO1919 

1929 PRINT" THIS DISK IS F 


ULL" : EXEC44539:GOTO1919 


~~ 
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ASSEMBLY FILE 


by Kevin 


— 

Appendix II of William Bardens’ book 
COLOR COMPUTER ASSEMBLY LANGUAGE 
PROGRAMMING contains some very useful and 
very interesting information. Although it 
can take a bit of understanding. 

Listed is the complete instruction set 
of the 6809 CPU along with the number of 
clock cycles required to execute the 
instruction, the number of bytes the 
instruction consumes and some good extra 
information. 

Let’s take a look at one of the load 
instructions, LDA for example. By now you 
should have a fair understanding of the 
various addressing modes of the 6809. From 
the table we can immediately see that the 
LDA instruction can take the forms of 
Immediate, Direct, Indexed or Extended 
addressing. When the assembler assembles 
the DIRECT form of the instruction it will 
convert the line LDA #34 to the numbers 
$96 and $34. These are the numbers you see 
as the object code for the line of source 
code you typed in using your assembler 
program. Obviously they consume two bytes 
of memory space and if you look to our 
table you will find that this is exactly 
the number of bytes that the instruction 
was supposed to consume. Also you may like 
to note that the instruction took 4 clock 
cycles, although that is generally of 
little use unless you really need to find 
ways to make your program run fast. 
Although I rather suspect that tightening 
up your programming techniques will gain 
you more speed in that case. 

But what happens in the case of indexed 
addressing? You will see a separate table 
titled INDEXED ADDRESSING MODES. 

Using Indexed addressing we could have 
the line LDA ,X+ which translates to $A6 


$80. How did I get the $807 Well if you 
look to the supplementary table you will 
see that with Auto Increment Indexed 


Addressing which is what we are doing you 
will find the binary code for the postbyte 
opcode. In our example this binary value 
is 1RROQ000. So what do these RR bits 
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mean? Unfortunately § it seems the 
publishers have left one very important 
footnote. Essentially the footnote says 


that for register X you substitute 00 for 
the RR within the binary number. Likewise 
Y=01, U=10 and S=11. Where this table 
shows the assembler form of the 


instruction merely substitute the name of 
the register you wish to index for the 
variable R. 

Understand? No then play with and think 
about it for a while. Still looking at the 
same table you will see here the number of 
clock cycles and the number of bytes to be 
ADDED to the nubers given in the main 
table. 

On to the description column. Again this 
information is most useful once you begin 
to understand the shorthand. Most of the 
shorthand is explained well enough in the 
Legend at the end of the table sa let’s 
just look at our own example. Quite simply 
the contents of memory are loaded into the 
A register. But note M does not have to be 
memory. It can also refer to the postbyte 
value when using Direct addressing, so 
don’t get caught out. As always a bit of 


study and more practice will develop your 
understanding. 
Now we come to the effect the 


instruction will have on the Condition 
Code Register. The only bits of the CC 
Register we worry about here are _ the 
Half-carry, Negative, Zero, Overflow and 
Carry bits. Again our LDA instruction will 
test both the Negative and Zero bits, set 


them if found to be true, otherwise 
cleared. The overflow bit will be cleared 
always upon execution of the LDA 
instruction. 


Dig into this information, type up a few 
short listings comparing the assembled 
output with what the tables tell you the 
code should be. You should this way 
improve your understanding of Assembly 
Language no end and likewise have found 
the most useful ready-reference guide to 
the 6809 you could want. 
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ODDS and ENDS I 


by Andrew Simpson 


MACHINE LANGUAGE used to be this thing 


that I could load but not list; I could 
play but not change. 

Then one day I got the book TRS-80 
COLOR COMPUTER ASSEMBLY LANGUAGE 
PROGRAMMING. 

Now Machine Language is this wonderful 
thing that lets me (when I learn) do 


almost anything with my CoCo. 

When I was about 1/2 way through the 
book I discovered that the text screen is 
at &H400 to &HSFF. So if I POKE &HSFF,65 I 
put the letter A on the bottom right of 
the screen and the screen does not scroll 
up. 

So can I reverse the process? I try a ? 
PEEK (&HOFF) <ENTER> & the computer 
replies with 65 - which is the decimal 
number for A, (refer to your CHR$ codes in 
the back of GETTING STARTED WITH COLOR 
BASIC). 

So now, every time | want to 
what is on the screen, I can! 
thought of a program that will 
but one day I[ will.) 


find out 
(I have not 
use this, 


After a bit, I got to wondering why I 
couldn't do the same thing in the graphic 
screen. From all the things I had read, | 
understood the graphic screen was at 
&H600. So I POKEd into &H600. 

I tried to put a few things there - 
&Hi2, &H76, &HFF etc., but nothing 
happened. So I thought - if I poke from 
&H400 on, while looking at the graphic 
screen, and wait for it to change color, I 
should be able to find where that happens. 
So I wrote this progran: 


10 PMODE4, 1: SCREEN1, 1: PCLS 
20 FOR A= &H400 TO &HFFFF 
30 POKE A,69 

40 NEXTA 


Then I ran the program and sat waiting, 
wondering if it would work. Then suddenly, 
a line went across the screen. 

It was not a true line. 

I pressed <break> and looked at A. The 
number I had was part of the way through 
the screen. So | thought "why can’t I use 
the PPOINT so the computer will stop when 
it gets to the end? It could stop and tell 
me the number”. 
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First I needed to make the line a true 
line, not a dot. I had learned from ny 
book that 1 memory point = 8 screen 
points. For example, the letter A in 
binary = 01000010. So on the screen, I get 
the first 8 dots which are black white 
black black black black white black. So to 
make the screen white [I must use a symbol 
that is 11111111, ie &HFF. 

Then I wrote this progran: 


10 PMODE4, 1: SCREEN1, 1: PCLS 

20 FOR A= &H2500 TO &H400 STEP-1 
30 POKE A, &HFF 

40 IF PPOINT(O,0)=5THEN PRINTA:S 
TOP 

90 NEXTA 


Then I made the number &HEOO the start 
and I got the other points the same way. 

All this proves that the if start of 
the screen is &HEOO, then the end of the 
PMODE4,1 screen is S&H25FF; the start of 
the PMODE 4,5 screen is &H2600 and the end 
is &HSDFF. 

But when I took out my disk controller 
I found that the screens had moved. I 
tried my program again and the screen was 
at &H600. This means that without ny 
CTANDY 1.0) disc controller the screen for 
PMODE4,1 is at &H600, the end at @&HIiDFF 
and PMODE 4,5 starts at &HIEOO and ends at 
SHSSFF. 

Now I have that information, I can save 
the screen to disk. I ran a good graphic 
screen program and typed SAVEM "NAME”, 
SHEOO, &H25FF, &HEOQ <ENTERD. (For non 
disk users, change &HEOO to &H600 and 
&HEOO to &HIDFF. >) 

Then I wrote a program that will load 
the screen: 


non disc > 10 PMODE4, 1: SCREEN1, 1: PCLS 
<use CLOAD> 20 LOADM’ SCREEN” 
30 RUN’ NAME” 


It loaded the screen so quick that if 
you blink you would miss it! (I am not 
kiding!) (Cassette was a bit slower.) 


book I! had 
locations 


From my work with the 
learned how to move memory 
around. 
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I thought, "why can’t I move the screen 


up?” 
Well, I can! And here is the program: 
00010 *  PMODE SCREEN UP 
00020 x BY 
00030 * ANDREW BRUCE SIMPSON 
00040 x 20/12/1985 
7FFO 00100 ORG $7FFO 
7FFO 8E OEO0 00110 START LDX #$0E00 
7FF3 A6 84 00120 LOOP LDA »X 
7FF5 A? 88 EO 00130 STA ~#20,X 
7FF&8 A6 80 00135 LDA » Xt 
7FFA 8C 25FF 00140 CMPX #$25FF 
7FFD 25 8 #F4 00150 BLO LOOP 
7FFF 39 00160 END RTS 
0000 00170 END 


00000 TOTAL ERRORS 


END TFFF 
LOOP TFF3 
START 7FFO 


Type it in and save it FIRST. 

Before you LOADM you must CLEAR 106, 
&H7FFO. (16K’'ers CLEAR 16, @&H3FFO and 
change line 100 from 7FFO to 3FFO.) 

For those of you who do not have 


EDTASM+ then the BASIC listing is: 
2’ PMODE SCREEN UP 


venue. SEAGULLS 
- GOLD COAST 


price $ 39.95 


sat nite meal included 
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4 ' BY 

6 'ANDREW BRUCE SIMPSON 

8 20/12/1985 

10 CLEARI9, &H7FED 

20 FORA=&H7FED TO &H7FFF 

30 READ B: POKE A,B 

40 NEXTA 

50 DATA &H41 ,&H42 ,&H53 ,&H8E , &HOE 
,&HOO ,&HA6 ,&H84 ,&HA7 ,&H88 , &HEO 

, SHAG, &H80 ,&H8C ,&H25 , &HFF , &H25, 
&HF4 , &HS9 


Those without disk drives should change 
the M.L. listing line 110 to 0600 instead 
of OE0O and line 140 to 1DFF and not 2OFF. 

In the BASIC listing change the DATA 
statements from &HOE, &H00 to &H06, &HO0 
and &H25, &HFF to &H1D, &HFF, line 10 from 
&SH7FED to &HSFED. 

Now to use it, all you have to do is 
EXEC&H7FFO and for 16K’ers EXEC&H3SFFO. The 
PMODE 7,1 screen will scroll up one place. 


You can save the normal screen to disk 
or tape by using SAVEM "NAME", &H400, 
&HSFF, &H400 then just use the same 


program that I used to load the graphic 
screen except take out line 10. 


But can I make the screen scroll down? 
See you next time! 
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The Straight, Hard Facts 
about Assembly Language 


By William Barden, Jr. 


66 ant to speed up your 
programs 300 times? 
Want to learn skills that 


will make you rich? Try Color Compu- 
ter assembly language! To see if you 
have the aptitude, code this problem in 
BASIC and send us the result: 2 + 2 = 7. 
If you pass this simple test, we’d like to 
enroll you in ‘Famous Programmers’ 
School !” 

I closed the coding pad cover on 
which this advertisement was printed 
and sat back in my Realistic DC-5 desk 
chair, reflecting. That’s the trouble with 
assembly language, it’s misunderstood 
— too many myths abound about it. 
Maybe I can dispel some of those myths 
in this column. I'll give you the straight, 
hard facts about assembly language. If 
you're satisfied, you might be interested 
in dropping in from month to month 
and following this column. 


Fact Number 1: Assembly Language 
is Fast 

Assembly language is fast! As you 
know, every microcomputer (indeed, 
every computer) has a built-in set of 
machine language instructions. Every 
program, whether it’s written in the OS- 
9 c language or Extended Color BASIC, 
must ultimately be translated into 
sequences of machine language instruc- 
tions. If you can write directly in ma- 
chine language or its fraternal twin 
brother, assembly language, you are 
operating at peak speed on the Color 
Computer. 

As an example of this blinding speed, 
consider the program in Figure |. It’s a 
“bubble sort” in Extended BASIC that 
sorts a “worst case” set of characters on 
the screen. The Extended BASIC pro- 
gram takes an estimated 4,800 seconds 
to do the sort. Now look at Figure 2, 
an assembly language equivalent. (The 
assembly language here has been con- 
verted into machine language and em- 
bedded into Extended BASIC DATA 
statements, which are then moved and 


executed.) The assembly language ver- 
sion takes six seconds! 


Expect to see increases in speed in 
assembly language from dozens to 
hundreds of times over “interpretive” 
BASIC and from three times to dozens 
of times over compilers such as BASICO9 
and C. 

Assembly language is the standard by 
which every other language is based. 
When programmers want to develop 
impressive code, they invariably pick 
assembly language to do the develop- 
ment. Sure, C and PASCAL might be 
used for some programs where speed is 
not extremely critical, but assembly 
language is always the choice when the 
absolute fastest speed is required. 


Fact Number 2: Assembly Language 
is Tedious to Code 

This is the most detrimental thing 
about assembly language, and I don’t 
want to downplay it. There’s no ques- 





Figure 1: Bubble Sort in BASIC 


199 REM EXT BASIC BUBBLE SORT 
119 REM FILL SCREEN WITH CHARS 
129 CLS 

139 FOR I=&H499 TO &H5FF 

149 POKE I,RND(127) 

159 NEXT I 

169 REM ACTUAL SORT 

179 BEND=&H5FF 

189 I=&H499 

199 SWAP=9 

299 IFPEEK(1)<=PEEK(I+1) THEN269 
219 FIRST=PEEK(TI) 

229 SECOND=PEEK(I+1) 

239 POKE I,SECOND 

249 POKE I+1,FIRST 

259 SWAP=1 

268 I=I+1 

279 IF I<>BEND THEN 299 

289 BEND=BEND-1 

299 IF BEND=&H3FF THEN 319 
399 IF SWAP<>9 THEN 189 

319 GOTO 319 


tion that assembly language is a very 
tedious language to code. It may take 
10 times longer to code a large program 
in assembly language than in BASIC. Is 
there any solution to this? Not really. In 
spite of “macro” assemblers, interactive 
editors, debug packages and books that 
promise to teach you assembly language 
in days, it remains tough to use. 

One approach in using assembly 
language is to use it sparingly. Use it in 


short assembly language subroutines to 


speed up BASIC or other languages in 
those areas where speed is important. 
The bulk of the code can be the higher 
level BASIC, C or PASCAL. That way, you 
can have the best of both worlds: the 
programming ease of the higher level 
language and the speed of assembly 
language. 


Fact Number 3: Assembly Language 
is Tedious to Learn 

One of the reasons assembly language 
columns are so popular in magazines 
and why assembly language books sell 
so well is that computer hobbyists are 
continually looking for magic ap- 
proaches to learning it. There really are 
none. 

Surprisingly, it’s relatively easy to 
learn how the machine language in- 
structions for a microcomputer work. 
They are so rudimentary that they're 
easy to comprehend. One instruction 
transfers a byte from memory into a 
register. Another adds two bytes. 
Another compares two values. It’s not 
too hard to sit down and memorize the 
actions of about 60 instructions, as 
found in the Color Computer’s 6809 
microprocessor. 

There’s much more to assembly lan- 
guage than memorizing the actions of 
instructions, though. It consists more of 
learning programming algorithms and 
approaches to doing things — con- 
structing tables of data, sorting lists, 
using linked lists, building subroutines 
to print lines, and so forth. Learning 
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Figure 2: Bubble Sort in Assembly Language 
99199 * BUBBLE SORT 


4c5B 8E g4gg 99119 BUB919 LDX #$499 POINT TO START OF TEXT SCREEN 
4CSE 198E gggg 99129 LDY #9 SET SWAP FLAG TO 9 
4062 A689 99139 BUB929 LDA Xt GET ITH ENTRY, INCREMENT 
4064 Al 84 99149 CMPA x COMPARE TO ITH+1 
4066 23 PA 99159 BLS BUBG39 GO IF LESS THAN OR EQUAL 
4068 E6 84 99169 LDB a, SWAP HERE - GET ITH 
406A E7 1F 99179 STB -1,X STORE IN ITH 
4c6C A7 84 99189 STA x STORE FIRST IN ITH+1 
4AC6E 198E G91 99199 LDY #1 SET SWAP FLAG 
4072 8C  Q5FF 99299 BUB939 CMPX  #S5FF AT END? 
4075 26 EB 99219 BNE BUBP29 GO IF NO 
4c77 198¢ 999g 99229 CMPY #9 YEY, ANY SWAPS? 
4C7B 26 DE 99239 BNE BUB@19 IF YES, TRY AGAIN 
4c7D 39 99249 RTS RETURN 
PPP 99259 END 
three. Sigh. . . If you must learn assem- 
P2999 TOTAL ERRORS bly language, then we'll give you some 
199 REM BASIC/AL BUBBLE SORT tips on how to go about it. 


119 
129 
139 
149 
159 
169 
179 
189 
199 
299 
219 
211 
212 
213 
214 
229 
239 
249 
241 
242 
243 


CLS 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


READ A 
POKE I,A 
NEXT I 


NEXT I 


SR=USR9 (9) 
GOTO 243 


assembly language, then, is more a 
situation of learning its structures, 
approach and philosophy, a kind of 
excursion into microprocessor Zen. 
However, this leads us directly into... 


Fact Number 4: Once You’ve Learned 
One Assembly Language, You Know 
Them All 

Once you've studied the philosophy 
of one assembly language and mastered 
the techniques, it becomes extremely 
easy to learn the instruction set of the 
next microcomputer. Assembly lan- 
guage for the Apple MacIntosh’s 68000 
is very similar to the Color Computer’s 
6809. Assembly language on the Tandy 
1000’s 8088 microprocessor is really not 
that different than on the Color Com- 
puter. Once you’ve learned one assem- 
bly language, regardless which it is, 


CLEAR 299,16127 


&H8E, &H94 , &HOP, &H19 
&H8E, &HBP , &HID 

&HA6 , &H89, &HA1 , &H84 
&H23, &HPA, &HEGS , &H84 
&HE7 , &H1F , &HA7 , &H84 
&H19, &H8E, &H9P , &HO1 
&H8C ,&H95 , &HFF , &H26 
&HEB , &H19 , &H8C, &HIP 
&HIP , &H26 , &GHDE, &H39 
FOR I=16128 TO 16128+34 


FOR I=&H499 TO &H5FF 
POKE I,RND(127) 


DEFUSR@=&H3F 99 


you're in good stead for the next, since 
you've mastered the art of using assem- 


bly language instructions to accomplish 
useful things. 

If you’re looking for the ultimate 
microprocessor from which to learn 
assembly language, look no further — 
90 percent of what you learn on the 
Color Computer is directly applicable 
to any other system. Incidentally, the 
6809 on the Color Computer is regarded 
by many to be as good or better than 
the 8088 on IBM compatibles. The 
instruction set of the 6809 is built along 
classical programming lines, while the 
8088 has more idiosyncrasies. 


Are You Still with Me? 

If so, you're a hard person to discour- 
age. You must be a student, confirmed 
hacker or masochist, or possibly all 


Which Assembler is Best? 

As you probably know, an assembler 
is a program that takes the source code 
of your assembly language program and 
translates it into object code or machine 
language. In the process, it provides a 
listing of the program and the resulting 
machine language, as shown in Figure 
3. 


I have mixed feelings about recom- 
mending an assembler to use. In the case 
of the Color Computer, the Radio 
Shack versions are not bad and fairly 
inexpensive. In addition, they have 
become a standard. For that reason, 
we'll refer primarily to Radio Shack 
products here. Those with other pro- 
ducts will find, for the most part, that 
the code still applies. 


Non-Disk System Users 

If you have a Color Computer with- 
out a disk, you'll probably want to get 
the Color Computer EDTASM+ As- 
sembler/ Editor (Cat. No. 26-3250). 
This is a cassette-based system I like 
very much. The product contains three 
functions that would ordinarily be 
separate programs — the editor, as- 
sembler and debugger. Because the 
programs occupy memory at the same 
time, there’s no loading from cassette 
between functions; you can simply 
switch from one to another with a single 
keystroke or two. 

The editor does pretty much what 
Extended BASIC does in editing — 
characters on lines can be manipulated 
in different ways. The assembler, of 
course, translates the source code into 
object code and provides a listing. It 
also assembles into memory rather than 
creating an object file, although this can 


PAGE 46 Australian RAINBOW March 1956. 














Figure 3: The Assembly Process 


VIA CASSETTE OBJECT 
SOURCE EDITOR ASSEMBLER OR DISK CODE 
CODE PROGRAM (MACHINE 
LANGUAGE) 
OR 


also be done. Having the machine 
language code loaded directly into 
memory bypasses a cassette load of the 
object file and allows the debugger to be 
instantaneously called after assembly. 
The debugger (ZBUG) allows you to 
systematically debug the program by 
putting in stopping points (break- 
points), by stepping through instruc- 
tions, by dumping selected areas of 
memory, and so forth. 


Disk System Users without OS-9 

If you’re not an OS-9 user and run 
Disk BASIC, then Radio Shack provides 
a disk version of EDTASM+ — Color 
Disk EDTASM (Cat. No. 26-3254). 
This version contains all of the com- 
mands of EDTASM+ and a few more 
— it’s essentially an upgrade of the 
cassette product. Using Disk ED- 
TASM, youcan save source and object 
files on diskette, a decided advantage 
with long programs. 


Disk System Users with OS-9 

I know Dale Puckett is going to kill 
me for this, but I have to say it: Learning 
assembly language with the OS-9 edi- 


PROGRAM 
LISTING 


















FILE OR 
IN MEMORY 


tor, assembler and debugger is much 
more of a task than using Disk ED- 
TASM. The OS-9 program develop- 
ment tools are powerful, but more 
complex than the stand-alone Disk 
EDTASM, and you must pay more 
attention to the OS-9 environment in 
which you’re operating. 

However, if you are a confirmed OS- 
9 buff, it is certainly possible to learn 
OS-9 assembly language. The instruc- 
tions and mnemonics for the 6809 are 
the same, as are many of the other 
commands provided for assembly. If 
you choose the OS-9 route, you'll learn 
more about how assembly language 
works in an operating system environ- 
ment, if you can get past some of the 
frustration and complexities of OS-9 
itself. 


Other Assemblers 

A non-Radio Shack product I like is 
the Micro Works Macro-80C Disk 
Assembler. I started using this product 
because there was no disk assembler 
from Radio Shack at the time. Al- 
though not as integrated as Radio 
Shack EDTASM, it is a nice, well- 


Figure 4: Typical Macro Use in an Assembler 


99199 SHIFTR 
99119 \.L 
99129 

99139 

PPL4P 


7B 
P499 


22 


4BOD 86 
4BOF 8E 


91999 
g1gly 
$1929 
91939 
MACRO 
CALL 


4B18 86 


MACRO 
LSRA 
LDB 
BNE 
ENDM 


MACRO 


*\3 _\ DEFINITION 


\.L 


ARGUMENT PASSED 
TO MACRO 


#123 
#3499 


LDA 
LDX 


SHIFTR 
VA 


dummy value 
dummy value 
macro call 


#34 dummy value 





thought out product. 


Books and Tutorials 

It will surprise some readers to find 
out I can’t present an entire course on 
assembly language in the pages of 
RAINBOW. Think about it for a moment, 
though. In each column I have about 
3,500 words to present my rambling 
discourses. That’s 42,000 words a year, 
which might be enough for an introduc- 
tory text on Color Computer assembly 
language. There’s also the problem of 
new subscribers and just the overall 
length of time involved. It’s difficult to 
take a semester course over a year or 
more. For that reason, I'll use the 
column to cover interesting points 
about assembly language programs, 
present some practical, short programs 
and, in general, act as a supplement to 
your own study. 

An obvious question you might have 
is, ““What books can I use to learn 


assembly language?” It’s embarassing to 
recommend my own Radio Shack 
book, Color Computer Assembly Lan- 
guage Programming (Cat. No. 62- 
2077), but at $6.95 you can’t go too far 
wrong. 

I honestly don’t know of many books 
to recommend on the topic, other than 
the books on the 6809 microprocessor 
itself. Some of these do a good job of 
explaining the operation and use of 
6809 instructions. A good one is Lance 
Leventhal’s Osborne/McGraw Hill 
book 6809 Assembly Language Pro- 
gramming. However, all of these ge- 
neric books suffer from the same prob- 
lem, though no fault of the author -— 
they are not machine specific. They tell 
you about 6809 microprocessor instruc- 
tions, but not how these instructions are 
used on any specific machine, such as 
the Color Computer. One must, if only 
for an absolute reference, is Motorola’s 
MC6809 Programming Manual, avail- 
able from Motorola Semiconductor 
Products, Inc., 3501 Ed Bluestein Blvd., 
Austin, TX 78721. 

Another product is Dennis Kitsz’s 
Green Mountain Micro tutorial course 
called “Learning the 6809.” It comes 
complete with audio tapes of 24 lessons 
and programs and a 224-page manual. 
This course is geared around ED- 
TASMt+, the cassette version of Radio 
Shack’s editor/assembler/ debugger, 
and is excellent. It covers not only the 
instruction set of the 6809, but also the 
structure and hardware of the Color 
Computer. About the only criticism 
that can be made of the course is its 
price of $99, a little dear for many 
CoCoists. 

Another product is the Assembly 
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Language Tutor (26-3148, Page 46 of 
Computer Center Catalog RSC-15). 
The Assembly Language Tutor is a 
complete subset of an editor, assembler 
and debugger. It contains 30 lessons 
loadable from cassette, together with a 
large manual. The neat thing about the 
Tutor is that it contains an assembly 
language interpreter that runs your 
programs or lesson programs. As the 
interpreter oversees and controls things, 
it prevents you from making addressing 
errors, attempting to execute data 
rather than instructions and clobbering 
critical memory areas. It holds your 
hand, so to speak, to make assembly 
language learning a lot more palatable. 


10 Most-Often Asked Questions 
about Assembly Language 

In future columns I'll try to answer 
your questions about assembly lan- 
guage. If you have questions please 
drop me a line at RAINBOW, or leave a 
message on Delphi or the CoCo SIG of 
CompuServe. I'll try to answer the most 
common questions. For this first col- 
umn, I'll answer 10 questions that keep 
popping up again and again. 


Question 1: What are Macros 
and Why are They Used? 

A “macro” is simply a sequence of 
instructions, ranging from one to 
hundreds. A typical macro might con- 
sist of four instructions, such as the ones 
shown in Figure 4. The instructions in 
this figure shift Register A right in a 
logical shift a specified number of 
positions. The macro is defined in a 
definition shown in the first part of the 
listing. Later, the macro can be “in- 
voked” by writing down the macro 
name as shown in the SHIFTR mne- 
monic. 

When the assembler sees the macro 
name in place of the usual instruction 
mnemonic, it searches a list of macro 
definitions, finds the instructions de- 
fined for the macro and automatically 
generates the instructions as if you had 
typed them in at that point. If the macro 
is invoked 10 times in a program, the 
same instructions are generated for each 
occurrence. 

The advantage of the macro is that 
only one line of code can produce many 
lines automatically. Macros are a sort of 
“in-line” subroutine. Tn the example in 
Figure 4, the macro used one argument, 
but the line invoking the macro may 
also contain more arguments that are 
used within the macro body of code. 


Question 2: What is Position-. 
Independent Code and Why is it So 
Important? 

Position-independent code is also 
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called relocatable code for some mi- 
croprocessor instruction sets. Position- 
independent code ts not at all important 
when instructions are assembled for a 
specific location in memory. Figure 5, 
for example, shows an LDA CONSTI 
instruction, which loads Register A in 
the 6809 with the contents of a memory 
location called CONSTI, a constant. 
After assembly, the location of 
CONSTI is at location $400A and the 
LDA address is $4000. As long as the 
program is loaded in the $4000 memory 
area, the LDA operates as it should, 
loading Register A with the contents of 
memory location $400A. 

Suppose the machine language code 
is moved to $7000. The LDA should 
refer to a location (Hex A) 10 bytes 
away from the start of the program at 
$700A. Instead, it refers to location 
$400A! The LDA is not position- 
independent. 

In the last part of the figure, the LDA 
CONST: has been replaced with an 
LDA CONST1,PCR instruction. This 
instruction assembles without an abso- 
lute memory address — the address is 
computed from the current contents of 
the PC (Program Counter) register and 
an offset value in the instruction. The 
position-independent form of the LDA 
always loads the value 10 bytes away 
from the program start, and is position- 
independent. 

It’s important to have position- 
independent code in several cases. OS- 
9, forexample, loads assembly language 


code in different memory areas and 
much of the code must be position- 
independent. Even if you are not using 
OS-9, you cannot always guarantee that 
your program will be loaded in a spe- 
cific memory area unless you take pains 
to do so. If your code has been con- 
verted to machine language DATA 
bytes and relocated to an array area in 
BASIC, for instance, you might not be 
able to know beforehand where that 
array area will be. 

On the other hand, for simple pro- 
grams outside of an OS-9 environment, 
you don't have to worry too much about 
position-independent code. Simply 
assemble your programs at a specific 
memory area and never move the ma- 
chine language bytes anywhere else. 


Question 3: What's the Proper Way to 
Write Assembly Language Programs? 
Actually, there is no single way to 
solve a problem in assembly language 
code. There are usually many ways to 
write the assembly language code for a 
particular problem. Some ways might 
be more efficient than others, but as- 
sembly language is so fast that you can 
afford to be sloppy and still get the job 
done. At first, concentrate only on 
program design — using the right plan 
or algorithm to solve the problem. 
Later, as you become more experienced 
in assembly language, you can make 
your code more efficient and elegant. 
Assembly language 1s a great deal less 
interactive than a higher level language 


Figure 5: Position-Independent Code Example 


Original Code: 


POINTS TO $400A 


4999 PPL PP ORG $4999 

4999 B6 499A 99119 START LDA CONST1 

4993 C6 1g 99129 LDB #$19 constant 

4995 8E 9499 99139 LDX #3499 screen start 
4998 29 34 99149 BRA NEXT jump over CONST1 
49GA FF 92159 CONST1 FCB SFF constant 
Relocated Code: STILL POINTS TO $400A! 

7999 Jase ORG 94999 

7999 B6 499A 99119 START LDA CONST1 

7993 C6 19 99129 LDB #$19 constant 

7995 8E Y499 99139 LDX #54909 screen start 
7998 29 34 99149 BRA NEXT jump over CONST1 
799A FF SFF constant 


Code with PCR: 


99159 CONST1L FCB 


THIS DISPLACEMENT ADDED TO PC 


TO GET ADDRESS OF CONST1 


4999 
4999 A6 8D 9997 


99199 


Australian ya 


ORG 
99119 START LDA 


S49 99 
CONSTL 


March 1986. 





such as BASIC. You must carefully plan 
out the program design before even 
starting to code the problem. You 
should even consider “flow charting” 
the problem to get a clear idea of how 
to proceed. Breaking up a large problem 
into modules (subroutines) is also a 
good idea. 


Question 4: What about 1/O 
Operations in Assembly Language? 

Input/output in Color Computer 
assembly language is best handled by 
using the BASIC “I/O drivers.” The I/O 
drivers are assembly language code 
contained in BASIC ROM; they handle 
such I/O as text screen display, reading 
a character from the keyboard, reading 
and writing to tape and disk files, and 
other operations. 

Some of the I/O calls are “docu- 
mented,” that is, defined in Radio 
Shack documentation. Other I/O calls 
are usable, but may change in subse- 
quent versions of BASIC or new systems. 
Of course, you can write your own |/ 
O drivers from scratch within your 
assembly language program, but it’s less 
work to use standard drivers. 

Going Ahead with Extended Color 
BASIC lists standard I/O drivers near 
the back of the book, and the Assembler 
manuals also reference [/O drivers. A 
typical driver is POLCAT (a little Texas 
humor there), the “Poll Keyboard for a 
Character” ROM subroutine, accessi- 
ble by a call to location $A000. If a key 
is being pressed, it will be returned in 
Register A with the °Z’ flag set. 


Question 5: What are Condition 
Codes and What are They Used for? 

The condition codes in the 6809 are 
a set of eight “flags.” Although these 
flags are separate from each other, they 
are grouped together as the condition 
codes register to make them easier to 
handle. The main purpose of the flags 
is to record the results of arithmetic 
instructions. 

In adding or subtracting two 
numbers, for example, it’s handy to 
know whether the result of the opera- 
tion is a negative number, zero or 
greater than zero. The condition codes 
record this information as part of the 
add or subtract instruction. The condi- 
tion codes can be tested by Branch 
instructions. This sequence subtracts 12 
from the contents of Register B and 
branches (a BASIC GOTO) to location 
NEXTI if the result of the subtract is 
zero: 


subtract 12 
branch if result=0 


SUBB #12 
BEQ NEXTI 


March 1986. 


Some instructions set the condition 
codes and some do not. All of the 
arithmetic instructions do set the con- 
dition codes so a Branch instruction can 
be used to alter the path of the program, 
if necessary. 


Question 6: What are Interrupts? 
Interrupts are used in computers to 
temporarily suspend execution of one 
program, called the “background” 
program, and to initiate a short new 


program called a “foreground” pro- 
gram. If the Color Computer is being 
used to monitor a nuclear reactor, for 
example, it might be beneficial to have 
the CoCo suspend printing paychecks 
and ring a bell when the coolant temper- 
ature reaches a critical point. An inter- 
rupt provides this ability. 

There are two basic types of inter- 
rupts, maskable and non-maskable. A 
maskable interrupt can be enabled or 


disabled under program control. A non- 
maskable interrupt is always active and 
cannot be disabled. The CoCo has both. 

When an interrupt occurs and it 1s not 
catastrophic, the interrupt action 1s 
taken (such as ringing a bell for one 
second) and the interrupted program Is 
then resumed. The interrupted program 
isn't aware that the interrupt occurred 
and goes blithely on its way, churning 
out the remainder of the paychecks. In 
a way, then, interrupts allow a type of 
“multitasking,” where one task is a 
much higher priority than the other. 

You may never use interrupts in your 
beginning assembly language program- 
ming and don’t have to be aware of 
them in many short assembly language 
programs. 


Question 7: What is Reentrant and 
Recursive Code? 
Reentrant code relates to the inter- 





Figure 6: Reentrant Problem 


MEMORY 









JSR “A” 


SUBROUTINE “A” 


VAR1=1234 
VAR2=5678 


INTERRUPT 
PROCESSING ROUTINE 
JSR “A” 


(1)MAIN PROGRAM CALLS SUBROUTINE “A” 


(2)IN THE MIDDLE OF THE SUBROUTINE AN 
INTERRUPT OCCURS. VAR1 AND VAR2 HAVE 
STORED TEMPORARY RESULTS 


(SINTERRUPT PROCESSING ROUTINE IS 
STARTED 


(4HOWEVER, INTERRUPT PROCESSING ALSO 
CALLS “A”. THE SUBROUTINE IS REENTERED, 
AND VAR1 AND VAR2 ARE USED AGAIN 


(5)AT END OF INTERRUPT PROCESSING 
SUBROUTINE “A” IS REENTERED AT INTERRUPT 
POINT WITH INVALID VAR1 AND VAR2 
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rupts just discussed. When a subroutine 
can be interrupted and is used by both 
the main program and an interrupt, it 
is said to be reentrant. Unless care is 
taken in the way variables are handled 
within the subroutine, it is possible to 
clobber the variables used by the main 
program when the interrupt code calls 
the subroutine again (see Figure 6). This 
problem is usually handled by not 
having a common subroutine for both 
the main program and interrupt proce- 
dure, or by using the stack to store 
temporary data. 

Again, as in the case of Question 6, 
don’t worry about reentrant code unless 
you are doing interrupt processing, and 
even then it often won’t be a problem. 

A recursive subroutine calls itself, 
possibly several times. Like reentrant 
code, special actions must be taken to 
save all levels of processing, usually in 
the stack. 


Question 8: How Can I Use Assembly 
Language to Speed Up My Graphics? 

Assembly language can be used to 
speed up graphics and with great suc- 
cess, but you may have more work than 
you bargained for. For one thing, to 
process graphics you'll need your own 
set of assembly language subroutines to 
handle graphics actions, such as draw- 
ing lines, creating shapes and imple- 
menting windows. 

An alternative is to use some of the 
built-in graphics contained in ROM 
code. However, this latter course has 


built-in dangers, as most of the ROM 
calls are not documented by Radio 
Shack. If they are used, be prepared to 
change addresses when the next version 
of BASIC or a new system appears. 

Creating your own graphics subrou- 
tines may involve a great deal of work. 
The Extended BASIC CIRCLE command, 
for example, draws a circle by drawing 
a polygon of many sides. It takes some 
effort to implement such code in assem- 
bly language! 


Question 9: How Can I Use Assembly 
Language for Sound? 

Assembly language can be used for 
incredible sounds from the CoCo. 
Sound is produced in the CoCo by a 
digital-to-analog converter, which al- 
lows you to synthesize sounds by creat- 
ing a wave form, as shown in Figure 7. 
The tones used for cassette tape, for 
example, are actually created from a 
sine wave table in ROM, a series of 
numeric values that are continually 
output to the D-to-A converter. 

To use this feature of the CoCo, it’s 
necessary to learn a little bit about the 
CoCo hardware interface. This is not 
too difficult, and we'll cover it in future 
columns. Assembly language, by the 
way, Is fast enough to create sounds up 
to the frequency limits of the sound 
hardware used in the system, whereas 
BASIC 1s much too slow to produce 
custom sounds outside of the tones in 
the SOUND or PLAY commands. 


Figure 7: Digital-to-Analog Wave Forms 


DIGITAL-TO- 
ANALOG 
CONVERTER 
IN COCO 
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ANALOG 
SOUND 


Question 10: How Can I Get a Listing 
of the BASIC Interpreter? 

Microsoft, the author of CoCo 
BASIC, understandably doesn't pass out 
listings of the BASIC interpreter. How- 
ever, several companies have produced 
listings of all versions of BASIC. These 
are not official listings, but have been 
compiled by “disassembling” BASIC to 
list the instructions used, figuring out 
what the instructions do, then adding 
their own comments. For the most part, 
these listings are very well-done and 
reveal such things as ROM subroutine 
calls and BASIC procedures. They’re 
invaluable to anyone interested in the 
“internals” of BASIC and how functions 
and commands are implemented in 
assembly language. 

Another alternative to discovering 
the secrets of BASIC is to disassemble it 
on your own. This can be done by using 
the ZBUG mnemonic mode in ED- 
TASMt+ or Disk EDTASM. This mode 
displays the contents of memory as 
instruction mnemonics by converting 
the machine code numeric values into 
the appropriate instructions. 


In future columns we'll talk in-depth 
about all of the topics mentioned here. 
Once again, if there are any topics you’d 
like discussed, write me at RAINBOW, 
contact me at Delphi or CompuServe, 
or simply write to P.O. Box 3568, 
Mission Viejo, CA 92692. See you next 
month. In the meantime, keep assem- 
bling! O 


64 DISCRETE LEVELS 


TIME 


ASSEMBLY LANGUAGE 
ALLOWS INTERVALS 

AS SHORT AS 

10 USECS (10/1,000,000 SEC.) 
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RAM TEST 





By Craig V. Bobbitt 


assembly language mem- 
ory checker for the Color 
Computer, Memory Diag- 


noStic has two modes: 

1) Short — Every byte is tested to see 
that each of its bits can be cleared and 
set (compared to correct values in 
Register A), then the bytes adjacent to 
the target byte, which contain the 
complement of the target, are tested to 
make sure they don’t follow the target 
(a common memory chip problem). 


(Craig Bobbitt lives in Greenville, 
Texas, and works on computer and 
peripheral hardware as a test engineer.) 


2) Long — All bit combinations are 
written into each memory location and 
checked against Register A. 

The program is relocatable and 
jumps over itself during execution. It is 
heavily commented and should be fairly 
easy to follow. It has only been tested 
on a 64K machine, but it should work 


in any system configuration of the 
CoCo. 


Lines 45-75 display the title and 
request memory size. 

Lines 78-84 move BASIC to RAM 
if 64K is selected. 

Lines 86-95 request long or short 


diagnostic. 





What’s the Diagnosis? 


Lines 96-157 are the body of the 
short option. 

are the body of the 
long option. 

display error mes- 
sages. 


Lines 159-177 


Lines 179-END 


The listing details how to force an 
error to see how that part of the pro- 
gram works. Memory Diagnostic is 
intended as a confidence check for the 
RAM-SAM portion of the Color Com- 
puter. 

(If you have any questions regarding 
this program you may contact the 
author at P.O. Box 584, Greenville, TX 
75401, phone 214-457-4476. Please 
include an SASE when writing.) C) 





The listing: MEMDIAG 


9991 
9992 
9993 
9994 
9995 
9996 
9997 
9998 
9999 
991p 
9911 
9912 
9913 
9914 
9915 
9916 
9917 
9918 
9919 
9929 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9939 
9931 
9932 
9933 
9934 


* eee eteee eee tee te HF +e FH EE 
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NAM MEMDIAG 2.2 
OPT 

*MEMORY DIAGNOSTIC FOR 64K TRS8Z COLOR COMPUTER 

*29 APRIL 84 

*(C) BY CRAIG V. BOBBITT 

*P.O BOX 584 


NOG 


*GREENVILLE,TX 75491 


THIS PROGRAM RUNS A MEMORY TEST ON ALL 
LOCATIONS IN THE COLOR COMPUTER FROM 
9999 TO END OF MEMORY. 
ERRORS ARE REPORTED TO 
THE SCREEN AND THE OPERATOR HAS THE OPTION 
OF ENDING THE TEST OR CONTINUING WITH 
THE NEXT LOCATION. 

THE SHORT TEST PUTS A PATTERN OF ALL ONES 
AND ALL ZEROS IN EACH LOCATION COMPARING 


IT VERIFIES BOTH OF THOSE VALUES. 
ADJACENT BYTES CONTAIN COMPLEMENTED DATA 
AND THEY ARE CHECKED TO INSURE THEY DON'T 
FOLLOW THE TARGET BYTE. 
THE LONG TEST WRITES ALL COMBINATIONS IN 

EACH BYTE OF MEMORY VERIFYING THAT THEY ARE 
READ BACK CORRECTLY. 
THE SHORT TEST IS ABOUT 12 SECONDS, THE 
LONG TEST TAKES ABOUT 6 MINUTES 
ALL LOCATIONS ARE RESTORED TO THEIR 
ORIGINAL VALUES 
THE PROGRAM JUMPS AROUND ITSELF. 

TO FORCE AN ERROR, LOAD PROGRAM AT $3999 
(DEFAULT) AND EXEC &H3966 SELECT SHORT OPT 


ANY DATA 


THE 


EXECUTION TIME FOR 





ELK KK EK EK HK eH HHH EH HH HY 
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9935 


9936 

9937 

9938 

9939 

GP49 

G41 

9942 
1A59 9943 

G44 
BDA928 G45 
318D9293 9946 
179141 9947 
BDALC1 9948 
27FB G49 
8131 9959 
2719 9951 
8132 9952 
271¢ 9953 
8133 9954 
2728 9955 
8134 9956 
192792B5 9957 
2QE7 9958 

9959 
8E3FFF 9969 
AF8D92C5 $961 
8E3136 9962 
AF8D9136 9963 
2931 9964 

9965 
8E7FFF 9966 
AF8D92B5 $967 
8E3332 9968 
AF8D9126 9969 
2921 97¢ 

G71 
SEFEFF 9972 
AF8D92A5 9973 
8E3634 974 
AF8D9116 9975 

9976 

gQ77 
8E8 999 9978 
B7FFDE 9979 
A689 998g 
B7FFDF 9981 
A71F 9982 
AC8D928D 9983 
25F9 G84 

9985 
BDA928 9986 
318D9GZE5 9987 
1799DD 9988 
BDALC1 9989 
27FB 9999 
ADIFAGZ2 9991 
814¢C 9992 
1927999E 9993 
8153 9994 
26E3 9995 
SEFFFF 9996 
318DFF76 9997 
1GAF8D9269 9998 
3PZ1 9999 
E684 9199 
E78D925D 9191 
E61F g1g2 
E78D9258 9193 
E691 9194 

g1g5 


E78D9259 


*PROGRAM IS RELOCATABLE 
ORG $3999 
GETCHR EQU $Al1C1 KEYBOARD INPUT 
CHROUT EQU S$agg2 SCREEN OUTPUT 
START ORCC #559 TURN OFF INTERRUPTS 
.MSIZE JSR $A928 CLEAR SCREEN 
LEAY MSG1,PCR FIND THE MESSAGE 
LBSR DISPLA WRITE IT 
GETSIZ JSR  GETCHR LOOK FOR A CHARACTER 
BEQ GETSIZ WAIT FOR KEYPRESS 
CMPA #'1 /16K/ 
BEQ .16K 
CMPA #'2 /32K/ 
BEQ .32K 
CMPA #'3 /64K/ 
BEQ .64K 
CMPA #'4 /ABORT/ 
LBEQ DONE 
BRA GETSIZE ILLEGAL OPTION 
.16K LDX #$3FFF TOP OF RAM FOR 16K 
STX MEMEND,PCR SAVE IT 
LDX #16 
STX HEADER+23,PCR PUT 16 IN OUTPUT STRING 
BRA WRTHDR CONTINUE 
.32K LDX #$7FFF TOP OF RAM FOR 32K 
STX MEMEND,PCR SAVE IT 
LDX #""32 
STX  HEADER+23,PCR 
BRA WRTHDR 
.64K LDX #$FEFF TOP OF RAM FOR 64K 
STX MEMEND,PCR SAVE IT 
LDX #64 
STX  HEADER+23,PCR 
*GO TO 64K MODE 
LDX #8999 START OF ROM 
MOVE STA  $FFDE SWITCH PAGE 
LDA, X+ GET BYTE FROM ROM 
STA  $SFFDF SWITCH PAGE BACK 
STA -1,X STORE IN RAM 
CMPX MEMEND,PCR END OF ROM 
BLO MOVE 
WRTHDR JSR $A928 CLEAR SCREEN 
LEAY HEADER,PCR GET ADX OF HEADER 
LBSR DISPLA WRITE IT 
INPUT JSR  GETCHR GO GET A CHARACTER 
BEQ INPUT WAIT FOR IT 
JSR  [CHROUT] ECHO CHARACTER 
CMPA #'L LONG DIAGNOSTIC? 
LBEQ LONG YES 
CMPA #'S SHORT? 
BNE WRTHDR BAD INPUT RETURN 
LDX #SFFFF FIRST LOCATION -1 
LEAY START, PCR 
STY TEMP,PCR SAVE START OF PROGRAM 
SLOOP LEAX 1,X 
LDB xX SAVE THE BYTE 
STB TARGET,PCR 
LDB s-1,X GET LOWER ADJACENT BYTE 
STB LOWER,PCR STORE IT AWAY 
LDB 1,X GET UPPER ADJACENT BYTE 
STB UPPER,PCR STORE IT 
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393 
3GA5 
3GA7 


' 39A9 


| 39AB 
| 39AC 


3QAE 
39B9 


39B3 
39B6 
39B8 
39BC 


39BE 
39Cg 
3902 
39C5 
39C7 
399 
39CC 
39CD 
39CE 
39D¢ 
39D2 
39D4 
39D6 
39D8 
39DB 
39DE 
39E9 
39E4 
39E6 
39E8 
3QEA 
39ED 
39EF 
30F1 


39F4 
39F8 
39FA 
30FE 
3199 
3194 
3196 
319A 
319E 
3112 
3116 
311A 


311D 


3129 
3122 
3124 
3125 
3127 
3129 
312¢ 
312E 
312F 
3131 
3133 
3135 
3139 
313D 
3141 
3143 
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C6FF 
E71F 
E791 
6F84 
4F 
A184 
2793 
1791BB 


8CI999 
2714 


AC8D9235 
279E 


E191 
2793 
179149 
E11F 
2793 
1791A2 
43 

53 
6391 
631F 
6384 
A184 
2793 
179193 
8CI999 
2714 
AC8D929D 
279E 
E11F 
2793 
179181 
E191 
2793 
17Q17A 


E68D91FB 
E791 
E68DP1F6 
E784 
E68DG1F1 
E71F 
AC8DG1E7 
192791CA 
AC8D@LDD 
1926FF79 
398D91DD 
L6FF72 


8EX999 


E684 
6F84 

4F 

A184 
2793 
179142 
6C84 

4C 

8199 
26F2 
E789 
AC8D91B8 
1927919B 
AC8DQ1AE 
26DD 
398D91B9 


9196 
g197 
g1g8 
$199 
$119 
glll 
9112 
9113 
g114 
g115 
g116 
9117 
g118 
g119 
g129 
g121 
g122 
g123 
9124 
9125 
9126 
9127 
9128 
g129 
9139 
9131 
9132 
9133 
J134 
9135 
9136 
9137 
9138 
9139 
9149 
G14 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
g149 
91594 
g151 
g152 
9153 
9154 
9155 
9156 
9157 
g158 
9159 
9169 
9161 
9162 
9163 
9164 
g165 
9166 
9167 
9168 
g169 
g179 
9171 
9172 
9173 
9174 
9175 
9176 


LBSR 


& 
SCONT 
ERROR 


COMPLEMENT OF TARGET BYTE 
SET ADJ BYTES TO COMPLEMENT 


CLEAR CURRENT LOCATION 
ZERO TO START 

ARE THEY EQUAL?? 

YES GO AHEAD 

ERROR IF NOT EQUAL 


%* DON'T DO ADJACENT BYTES IF AT START 
* OR END OF MEMORY 
SCONT CMPX #9 


BEQ 
CMPX 
BEQ 


SCONT2 


START OF MEMORY? 
YES DON'T DO ADJ BYTES 


MEMEND,PCR END? 


SCONT2 


YES DON'T CHECK ADJ BYTES 


*HAVE ADJACENT BYTES CHANGED? 


SCONT1 


SCONT2 


SCONT3 


SCONT4 


*RESTORE ALL 


CMPB 
BEQ 
LBSR 
CMPB 
BEQ 
LBSR 
COMA 
COMB 
COM 
COM 
COM 
CMPA 
BEQ 
LBSR 
CMPX 
BEQ 
CMPX 
BEQ 
CMPB 
BEQ 
LBSR 
CMPB 
BEQ 
LBSR 


SCONT5 LDB 


LONG 


LLOOP 


LCONT 


LCONT1 


STB 


1,X 
SCONT1 
ERROR 
-1,Xx 
SCONT2 
ERROR 


1,X 
-1,X 


-1,X 
SCONT4 
ERROR 
1,X 
SCONTS5 
ERROR 
BYTES 


UPPER, PCR 


1,X 


TARGET, PCR 


xX 


LOWER, PCR 


-1,X 


MEMEND , PCR 


DONE 
TEMP , PCR 
SLOOP 
EXIT, PCR 
SLOOP 


#9 
LCONT 
»X+ 


MEMEND, PCR 


DONE 
TEMP , PCR 
LLOOP 
EXIT, PCR 


UPPER ADJACENT 


REPORT ERROR 
LOWER ADJACENT 


COMPLEMENT THE GOOD VALUE 
COMPLEMENT ADJ BYTES 


ALL BITS SET?? 
YES GO AHEAD 


FIRST LOCATION? 


B SHOULD = ADJ BYTES 


HAS ALL MEMORY BEEN TESTED 
IF ALL MEMORY TESTED 

ARE WE IN THE PROGRAM AREA 
NO KEEP GOING 

FIND PROGRAM END 

GO TO IT 


FIRST LOCATION 


SAVE BYTE IN B 

CLEAR TARGET BYTE 

CLEAR COMPARATOR 

COMPARE 

IF EQUAL NO ERROR 
REPORT THE ERROR 
INCREMENT TARGET ADX 
INCREMENT COMPARATOR 
ALL COMBINATIONS TESTED? 
NO DO IT AGAIN 

RESTORE BYTE AND POINT TO NEXT ONE 
ARE WE FINISHED 

YES 

PROGRAM AREA? 

‘DO ANOTHER LOCATION 

GO AROUND PROGRAM AREA 
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3147 29D7 g177 BRA  LLOOP GO DO IT AGAIN 
9178 
3149 ADIFAZG2 9179 DISP1 JSR  [CHROUT] SEND A CHAR TO SCREEN 
314D A6Ag 9189 DISPLA LDA, Y+ GET A CHAR 
314F 26F8 g181 BNE DISP1 PRINT IT 
3151 39 g182 RTS RETURN 
9183 
9184 *SCREEN MESSAGES X'S WILL BE FILLED IN WITH 
9185 * CORRECT VALUES IN ERROR ROUTINE 
9186 
3152 29 9187 HEADER FCS / MEMORY DIAGNOSTIC 64K <JD>SHORT OR LONG?/ 
3182 9D 9188 ERMSG FCS /<f{D>DATA ERROR:<JD>ADDRESS=XXXX<JD>EXPECTED DATA=XX<{JD>ACTUAL 
DATA=XX/ 
31BC gD 9189 CONTN FCS /<QD>WANT TO CONTINUE? (Y OR N)/ 
31D8 gD 9199 LAST FCS /<{D>DIAGNOSTIC COMPLETE<QD><QD>**PRESS ANY KEY TO CONTINUE**/ 
329C 43 9191 MSGL FCS /COLOR COMPUTER MEMORY DIAGNOSTIC<QD> {ENTER MEMORY SIZE (1-4 
)<fD><9D> 1) 16K<QD> 2) 32K<P~D> 3) 64K<$D> 4)ABORT/ 
g192 
326E 3436 g193 ERROR PSHS D,X,Y SAVE REGISTERS 
3279 AF8D9978 g194 STX LOCTN,PCR SAVE LOCATION 
3274 A78D9976 9195 STA AREG,PCR SAVE GOOD VALUE 
3278 318DFF96 9196 LEAY ERMSG,PCR FIND ERROR MSG 
327C 314815 9197 LEAY 21,Y POINT TO OUTPUT BUFFER 
327F 398D9969  g198 LEAX LOCTN,PCR CONVERT THE LOCATION TO ASCII 
3283 8D2E 9199 BSR CONVRT 
3285 3121 9299 LEAY 1,Y NEXT OUTPUT LOC 
3287 8D2A 9291 BSR CONVRT CONVERT IT 
3289 31A819 9292 LEAY 16,Y OUTPUT LOCATION DATA EXPECTED 
328C 8D25 9293 BSR CONVRT CONVERT IT 
328E AE62 9294 LDX 2,8 GET OLD X VALUE 
3299 312E 9295 LEAY 14,Y LOCATION FOR ACTUAL VALUE 
3292 8D1F 9296 BSR CONVRT CONVERT 
3294 318DFEEA 9297 LEAY ERMSG,PCR FIND ERROR MSG 
3298 17FEB2 9298 LBSR DISPLA WRITE IT TO SCREEN 
329B 318DFF1D 9299 LEAY CONTN,PCR FIND CONTINUE MESSAGE 
329F 17FEAB 9219 LBSR DISPLA WRITE IT 
32A2 176F1C 9211 ANSWER LBSR GETCHR 
32A5 27FB 9212 BEQ ANSWER KEEP LOOKING 
32A7 ADOFAQZ2 9213 JSR [CHROUT] ECHO ANSWER 
32AB 8159 9214 CMPA #'Y Is IT A YES? 
32AD 2792 9215 BEQ GOBACK YES GO BACK WHERE YOU CAME FROM 
32AF 2927 9216 BRA DONE 
32Bl 35B6 9217 GOBACK PULS D,X,¥,PC RETURN 
9218 
32B3 A684 9219 CONVRT LDA ,X GET FIRST BYTE 
32B5 84F9 9229 ANDA #SFQ GET LEFT 4 BITS 
9994 9221 RPT 4 
9222 LSRA 
9223 ENDR 
32B7 44 + LSRA 
32B8 44 + LSRA 
32B9 44 + LSRA 
32BA 44 + LSRA 
32BB 8199 9224 CMPA #9 IS THIS A NUMBER 
32BD 2E94 9225 BGT LETR NO ITS A LETTER 
32BF 8B39 9226 ADDA #$39 
3201 2992 9227 BRA CONCNT 
3203 8B37 9228 LETR ADDA #$37 CHANGE IT TO ASCII 
32C5 ATA 9229 CONCNT STA ,Y+ PUT IT IN OUTPUT STRING 
32C7 A689 9239 LDA, X+ GET IT AGAIN 
3209 849F 9231 ANDA #S9F GET RIGHT BITS 
32CB 8199 9232 CMPA #9 
32CD 2E94 9233 BGT  LETR1 
32CF 8B39 9234 ADDA #839 
32D1 2992 9235 BRA  CNCNT 
32D3 8B37 9236 LETR1 ADDA #$37 
32D5 ATA4 9237 CNCNT STA ,Y 
32D7 39 9238 RTS 
9239 
32D8 318DFEFC 9249 DONE LEAY LAST,PCR 
32DC 17FE6E 9241 LBSR DISPLA 
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| 32DF BDAICL 9242 DONEL JSR  GETCHR IS THERE A KEY PRESSED 


- 32E2 27FB 9243 BEQ  DONEL 
| 32E4 1CAg 9244 ANDCC #SA9 RESTORE INTERRUPTS 
| 32E6 B7FFDE 9245 STA S$FFDE TURN OFF 64K MODE 
- 32E9 7EAQ27 9246 JMP  $A927 GO TO BASIC RESET ROUTINE 
32EC 9247 LOCIN RMB 2 
32EE 9248 AREG RMB 1 
32EF 9249 TEMP RMB 2 
32F1 9259 MEMEND RMB 2 
| 32F3 $251 UPPER RMB 1 
| 32F4 9252 TARGET RMB 1 
| 32F5 9253 LOWER RMB 1 
| 32F6 9254 RMB 1 
32F7 12 9255 EXIT NOP 
3999 9256 END START 


NO ERROR(S) DETECTED 





SYMBOL TABLE: 


16K =. 3925 .32K 3935 .64K 3945 .MSIZE 3992 
ANSWER 32A2 AREG 32EE CHROUT Agg2 CNCNT 32D5 
CONCNT 32C5 CONTN 31BC CONVRT 32B3 DISP1 3149 
DISPLA 314D DONE  32D8 DONEL 32DF ERMSG 3182 
ERROR 326E EXIT  32F7 GETCHR A1CL GETSIZ 399C 
GOBACK 32B1 HEADER 3152 INPUT 3979 LAST  31D8 
LCONT 3125 LCONT1 312C LETR 3263 LETRL 32D3 
LLOOP 3129 LOCTN 32EC LONG 311D LOWER 32F5 
MEMEND 32F1 MOVE 3956 MSG1 329C NARG 9999 
SCONT 39B3 SCONT1 39C5 SCONT2 39CC SCONT3 39DB 
SCONT4 39ED SCONTS 39F4 SLOOP 398F START 3999 
TARGET 32F4 TEMP 32EF UPPER 32F3 WRTHDR 3966 


CMD=MEMDIAG.TXT >/P 


CoCo MERGE 


continued from Page 31 60290 


$19 

00300 F PMG, PCR 

00310 SW, PCR TOGGLE SWITCH 

(10320 PRINT GQ TO SCRN PRINT SUB 
00330 } H$ABEF 

00340 $AC79 RETURN TG BASIC 
00350 RST STR, PCR GET START ADDR 

00340 ix $19 PUT IN POINTER 


C0100 ORG 32300 

00110 START LEAX  MERGE,PCR PUT MERGE ADDR INTO 
00120 STX $168 UMP TABLE 

00130 CLR Su ,PCR SET SWITCH FOR MERGE 
00140 RTS 

00150 STR RMB Z START POINTER STORAGE 


Q0160 SW RMB i SWITCH STORAGE 
00370 PRT PCR GET PROMPT ADDR 
00170 PNG FCC AMERGE INITIATED/ 00380 cil, PCR TOGGLE SWITCH 


00180 FCB 0D | 00390 PRINT GO TO SCRN PRINT SUB 
00190 PRT | FCC  AMERGE COMPLETED/ 00400 HSAREF 


00200 $00 00410 $AC79 RETURN TO BASIC 
00210 MERGE #$5C LOOK FOR CONTROL CHR ggazn $8273 NORMAL RETURN 

00220 EXIT EXIT IF NOT CONTROL = = 99430 #910 # OF CHRS IN PROMPT 
00230 SW ,PCR CHECK SWITCH SETTING  qgaap Ye GET CHR 

00240 RST 00450 $282 PRINT CHR ON SCREEN 
00250 $19 GET START ADDR 00460 

00260 STR, PCR STORE IN STR 00470 PR] 

00270 $1B GET END ADDR 10480 

00280 -2 x QVERWRITE END FLAG  —-9g.490 
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o you have a lot of assembly 
) De listings, but do not 

have an editor/assembler? Are 
you hoping to purchase an editor/ 
assembler in the future, but won’t have 
the extra money to do so for some time? 
If you answered “yes” to either of these 
questions, then read on. 

Debug is a utility that can display 30 
bytes and their corresponding charac- 
ters on the screen at any address. It can 
also make hard copy printouts in listing 
form, so if any of your computer pals 
want a listing, the program can easily 
generate one. Debug is essentially an 
address modifier. Anyone who has 
worked with the debug program on the 
Model III should be familiar with this 
version. 


Debug requires a 16K Extended 
Color BASIC computer. No prior load- 
ing instructions are required unless the 
machine code you’re going to type in 
requires them. To make sure the ma- 
chine code starts after your BASIC 
program, type in the command PRINT 
PEEK (27) *256+PEEK (28): this returns 
the end address for the program. If the 
address is where the code will be placed, 





I suggest using the PCLEAR command to 
move the program back in memory. 

The following keys are used in the 
program. 


Key Operation 
N Restarts program for a 
*N*ew address 
J *J*ump to specified ad- 
dress 
; Go to the next page of 
addresses 
- Go to the previous page 
of addresses 
S *S*aves machine code 
with the CSAVEM com- 
mand 
L *L*oads machine code 
into memory with the 
CLOADM command 
P *P*rints a listing of ma- 
chine code to the screen 
or printer 
A-F 
0-9 Hexadecimal numbers 
used when modifying ad- 
dresses 
Move cursor in modifica- 
tion mode 


Arrow keys 


ustraiian 
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By Mike Dean 


When you have finished typing in 
Debug, save it since a possibility exists 
that the code you may JUMP to might 
not let you return to Debug. After 
saving Debug, type RUN and press 
ENTER. The credits appear and the 
program asks the address at which you 
would like to start. You must respond 
in hexadecimal. 

After pressing ENTER, the address 
you requested will be in the upper left- 
hand corner of the screen. The contents 
of each address are displayed with each 
corresponding address. Press the semi- 
colon (;) key and the next page of 
addresses will appear on the screen. 
Press the minus (-) key and the address 


Sample Run 

8999: 45 58 
8996: gl 2A 
899C: 9A 8E 
8912: AF 48 
gl 9D 
12 BD 
g5 DD 
OF Bg 
QA EF 
86 7E 


8918: 
891E: 
8924: 
892A: 
8939: 
8936: 


arc s 





typed in at the start of the program will 
be the address in the upper left corner. 

Find an assembly listing in an issue 
of THE RAINBOW and type in the Hex 
numbers only. Once you reach the end 
of the page, a tone will sound. This 
indicates that you can either examine 
your typing accuracy or go to the next 
page. When you are finished typing in 
the code, press the ‘S’ key. Type the start 
address at the first prompt, press ENTER 
and type the ending address. Next, press 
ENTER and type the execution address. 
The program then asks for the filename. 
Type an appropriate name and press 
ENTER; the machine code will then be 
saved. The program goes back to the 
starting address you specified and 





The listing: DEBUG 


1 CLS: PRINT@197,"MACHINE LANGUAG 
E DEBUG"; 

2 PRINT@233,"VERSION 92.62"; 

3 PRINT@259,"BY MIKE DEAN JANUA 
RY 1985"; 

4 FORSW=$T0158:NEXT 

5 CLS: LINEINPUT"ADDRESS (HEX) :"; 
AS: LO=VAL("&H"+AS$) :CLS: IFLO>6544 
6THENLO=65446 

6 ZV=LO: FORDP=$T0448STEP3 2: ZQS$=H 
EXS$ (ZV) 

7 IFLEN(2Q$) <4THENZQS="9"+ZQ$:GO 
TO7 

8 PRINT@DP,ZQ$":"; 

9 ZV=ZV+6:NEXT: ZV=LOC 

18 FORDP=6T0454STEP32 

11 FORQP=DP TODP+16STEP3 

12 ZQ$=HEX$ (PEEK(ZV) ) 

13 IFLEN(ZQ$) <2THENZQS="6"+ZQ$ 
14 PRINT@QP,2ZQ$;:ZV=ZV+1:NEXTOP, 
DP: ZV=LOC 

15 ZV=LOC: FORDP=195$TO1498STEP32 
: FORQP=$TOS5 

16 POKEQP+DP, PEEK(ZV) : ZV=ZV+1:NE 
XTQP, DP 

17 AP=$: BP=6: PO=LO: PX=1959 

18 PRINT@ (AP+BP) , STRINGS (2,287) ;} 
19 AS=INKEY$ 

26 IFAS="N"THENRUN 





CoCo Cat 


THERE THEY GO OFF 
_ 7O_SCHOOL, AGAIY! 
» 
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THEY DONT REALIZE. 
WHAT ONE CAT CAW 00 
WHEN LEFT MQWE 
WITH A COMPUTER / 





displays the memory contents. To test 
your program save, press the ‘L’ key. 
Type in the filename or press ENTER for 
the next file. The file will be loaded and 
you will go back to the starting address 
of the file just loaded. 

For a better chance of finding typing 
errors, I have incorporated a print 
feature for those with printers. All you 
have to do is press the ‘P’ key and let 
the printer do the rest. The printout 
duplicates the format used on the 
screen. This makes it easy to type in 
from a Debug-generated listing. 

To experiment with Debug, load it 
and type in Listing 2 — just type Hex 
numbers on the keyboard. The graphics 
that are produced should be easier to 


21 IFAS=";"THENLO=LO+99: IFLO>654 
46THENLO=65446 : GOTO6ELSE6 

22 IFAS="-"THENLO=LO-99: IFLO<STH 
ENLO=9 : GOTO6ELSE6 

23 IFA$<>CHRS (9) THEN26 

24 GOSUB43:PRINT@(AP+BP) ,2Q$;:BP 
=BP+3: IFBP>22THENBP=6 : AP=AP+32:P 
O=PO0+1: PX=PX+27:GOTO44 

25 PO=PO0+1: PX=PX+1:GOTO18 

26 IFAS$<>CHRS$ (8) THEN29 

27 GOSUB43: PRINT@ (AP+BP) ,2Q$;:BP 
=BP-3: IFBP<6THENBP=21:AP=AP-32:P 
O=P0-1: PX=PX-27:GOTO45 

28 PO=PO0-1: PX=PX-1:GOTO18 

29 IFAS$<>CHR$ (19) THEN32 

38 GOSUB43:PRINT@(AP+BP) ,ZQ$;:AP 
=AP+32: IFAP>448THENAP=448:GOTO18 
31 PO=P0+6: PX=PX+32:GOTO18 

32 IFAS<>"4"THEN35 

33 GOSUB43: PRINT@ (AP+BP) ,2Q$;:AP 
=AP-32: IFAP<STHENAP=$ : GOTO18 

34 PO=P0-6: PX=PX-32:GOTO18 

35 IFAS="L"ORAS="S"THEN46ELSEIFA 
S="J"THEN59ELSEIFAS="P"THEN69 

36 IFAS=>"S"ANDAS<="9"ORAS=>"A"A 
NDAS$<="F"THENPRINT@ (AP+BP) ,A$;:B 
P=BP+1:GOTO38 

37 GOSUB43:PRINT@ (AP+BP) ,2Q$;:GO 
TO18 

38 BS=INKEY$: IFBS=""THEN38 

39 IFBS=>"9"ANDBS<="9"ORBS=>"A"A 
NDBS<="F"THENPRINT@(AP+BP) ,B$;:E 
LSE38 

48 POKEPO, VAL("&H"+(A$+B$) ) : POKE 
PX, VAL(""&H"+ (AS$+B$) ) :GOSUB43: PRI 
NT@ (AP+BP=-1) ,ZQ$;: POKEPX, VAL("'&H 
"+ZQS) 

41 BP=BP+2:IFBP>22THENBP=6 :AP=AP 
+32:PX=PX+27: PO=PO+1: IFAP>448THE 
NSOUND128,3:GOTO44ELSE44 

42 PO=P0+1: PX=PX+1:GOTO18 

43 ZQS$=HEX$ (PEEK(PO) ) : IFLEN(ZQ$) 
=1 THENZQ$=""6"+4ZQ$ : RETURNELSERETU 
RN 

44 IFAP>448THENAP=448 ; BP=21; PO=L 
0+89:GOTO18ELSE18 

45 IFAP<STHENAP=9 : BP=6 : PO=LO:GOT 
O18ELSE18 
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test if you have a Hex to binary chart. 

Debug has alleviated my hand- 
assembly problems. Once you get used 
to the format, listings can be entered in 
a matter of minutes. I have used Debug 
to type in the first two installments of 
Screen 51 by Chris Bone and R. Bartly 
Betts. (These installments can be found 
in the December 1984 and January 1985 
issues of RAINBOW.) Use Debug as much 
as possible. You’ll be amazed at the 
accuracy compared to typing DATA 
statements. 

(Questions about Debug may be sent 
to Mike at R.R. 1, Box 117, Knoxville, 
IL 61448, phone 309-289-6987. Please 
include an SASE for a reply when 
writing.) C) 


46 CLS: IFPEEK(49152) =68THENDV=1E 

LSEDV=-1 

47 IFAS="L"THENS6 

48 PRINT" RESPOND IN HEXADEC 
IMAL" 

49 LINEINPUT"START ADDRESS:";S$: 

S=VAL("&H"+S$) 

59 LINEINPUT"ENDING ADDRESS:";ES$ 
:E=VAL("&H"+ES) 

51 LINEINPUT"EXECUTION ADDRESS:" 
;D$:D=VAL("&H"+D$) 

52 LINEINPUT" FILENAME: ";FS 

53 IFDV=1THEN5S 

54 PRINT"PRESS PLAY&RECORD.": PRI 

NT"PRESS ANY KEY WHEN READY": EXE 
C&HA171:CSAVEMF$,S,E,D:LO=S:CLS: 

GOTO6 

55 SAVEM FS,S,E,D:LO=S:CLS:GOTO6 
56 IFDV=-1THEN58 

57 LINEINPUT"FILENAME:";F$:LOADM 
FS: LO=PEEK (487) *256+PEEK(488) :C 
LS : GOTO6 

58 PRINT"PRESS PLAY AND ENTER TH 
E", "FILENAME: ";:LINEINPUTFS : CLOA 
DM FS$:LO=PEEK (487) *256+PEEK(488) 
:CLS : GOTO6 

59 CLS: LINEINPUT"ADDRESS (HEX) :" 
;AS:EXEC VAL("&H"+A$) :GOTO5 

69 CLS: LINEINPUT"START ADDRESS"; 
S$:ST=VAL("&H"+S$) 

61 LINEINPUT"END ADDRESS" ;E$:EN= 
VAL("&H"+E$) : LINEINPUT"SCREEN OR 
PRINTER? ";DV$:IFDVS$="P"THEN DV 
=~2ELSEDV=9 

62 IF(EN-ST) /6=INT((EN-ST) /6) THE 
N63ELSEEN=EN+1:GOT062 

63 FORDP=ST TO EN STEP6:2Q$=HEX$ 
(DP) 

64 IFLEN(ZQ$) <4THENZQS="9"+Z0$:G 
OTO64 

65 PRINT#DV, ZQS"3 "3 

66 FORDD=DP TODP+5 

67 ZQ$=HEX$ (PEEK (DD) ) : IFLEN(ZQ$) 
<2THENZQS=""9"+Z0$ 

68 PRINT#DV," "+ZQS; 

69 NEXTDD: PRINT#DV, "":NEXTDP 

76 PRINT"PRESS A KEY TO CONTINUE 


"3 EXEC&HA171: LO=ST: CLS : GOTO6 Ps 


THEN AGAIN. 
MAY OE THEY 20/ 
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FORTH FORUM 


by John Poxon 


This article is the first in a_ series 
of nine for 1986 dealing with the FORTH 
language. The emphasis throughout will be 
on simple explanations of aspects of 


FORTH and elementary routines which you 
may find useful for your FORTH 
programmes. More specifically, the topics 
for each month will (hopefully) be as 
follows: - 
March - A brief introduction to 
FORTH: 
AXFORTH: Reverse Polish 
Notation. 
April - More about Reverse Polish 
Notation (RPN): using the 
OTACK. 
May - Colon definitions: the 
AXFORTH editor: CONSTANTs 
VARIABLEs and BASEs. 
June - Comparisons and decisions. 
LOOPs 
July - More about LOOPs: Some 
interesting FORTH words. 
August - Precision: Single and 


Double length words. 
September- String handling. 
October - Data logging and control 
of external devices. 
November - To be decided. 


FORTH is unlike any other language 
that you’ve probably met so far. Doubtless 
you’ve been used to a fixed syntax, and 
either interpretation or compilation of 
your code to make a program "RUN". 

FORTH syntax may be (to a large 
extent) defined by you, and either 
interpreted or compiled, depending on your 
whim and the circumstances. More about 
these mysteries later! 


FORTH is typically much faster than 
BASIC and a little slower than Assembly 
Language. I[t therefore is used primarily 


in applications which require speed, while 
avoiding the large programming time 
demanded for Assembly Language. Such 
applications may be games, operating 
systems, process control applications, 
word processing and spreadsheets, etc.. 
Its inventor, Charles Moore, created 
it to allow him to satisfactorily control 


an astronomical (optical) telescope at the 
Kitt Peak Observatory in Arizona, USA. 
FORTH posseses the additional merits 
of being compact, easily debugged and 
transportable between differing CPUs. 


AXFORTH is an 
FORTH created by John Redmond. 
available from Rainbow, Tandy or 
Redmond (see ads). 

John intended AXFORTH to be almost 
entirely compatable with the syntax of the 
book "Starting FORTH”, by Leo Brodie, of 
FORTH inc.. 

These 


implementation of 
It is 
John 


articles assume that you have 
both AXFORTH and Starting FORTH, though 
I hope that casual readers will also 
benefit from then. 

Doubtless by now you’re aching to run 
the AXFORTH you bought recently. Well, 
load and EXEC it and we’ll get on with 
using it. (I’ll refrain from _ such 
murderously inane comments as "we’ll set 


FORTH”). Forgive my sick humour! 
To stimulate your fancy, let’s muck 
about a bit. 
Try 


PRINT(C2 + 2) <ENTERD 


It didn’t like that, did it? Basic-like 
statements cannot function within FORTH 
unless specially defined. Cast out 
thoughts of "doing’” such definitions for 
the moment. 

Try 

eat. (Put 
as shown) 


<ENTER> in all spaces 


Much to your delight, I suspect, (and 
possibly, amazement) a 4 was printed. If 
not, you did something wrong. Try again, 
(no-one is looking). 

Notice that the numbers which are to 
be operated on preceeded the operator (the 
+), This method oof proceeding with 
calculations is called Postfix or Reverse 
Polish Notation (RPN). 

Notice also that each number or other 
character in this example was isolated by 


spaces. In FORTH each character or group 
of characters isolated by spaces is a 
FORTH word. FORTH allows any 
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combination of characters to be defined as 
a FORTH word and added to the dictionary 
currently in use. If you think about this 
feature of FORTH for a moment you will 
probably see that this is a wonderfully 
powerful capability! Obviously, if you 
miss a_ space, FORTH will see the 
incorrect string of characters as an 
unknown FORTH word, and suitably 
admonish you! 

The stop after the + is the FORTH 
version of PRINT (unless you make it be 
something else, of course). More of that 
later: don’t worry about it for now. I 
tend to leap ahead of the main thread of 
my explanation from time to time. 

Try 
10 10 x . <ENTERD 


You obtained, of course, the value 100. 


If you would like to make the same 
calculation in hexidecimal, 
try 
HEX A A X <ENTER> 
Did you get 64, the HEXIDECIMAL 


equivalent of DECIMAL 100° 


To again obtain answers written to 
base 10, type DECIMAL before your next 
calculation. This will set all future 
calculations to decimal until you do 
something to alter the current base. Such 
a something might, for instance be a 
return to hexidecimal by using HEX . There 
are ways of using other bases, e.g. base 2 
(binary), but I’1ll save that for the May 
issue. 

Why not put the RAINBOW aside for a 
few minutes and play around with a few 
calculations in RPN. Check the results 
useing your other computer. .. You know - 
the one between your ears! To further aid 
your imminent attempts to compute FORTH 
style, the standard operators are the same 
as in BASIC. Those of you who feel really 
adventurous might like to try chained 
calculations, with the . (PRINT) inserted 
at interesting points in the process, 


versus a. at the end only. 
Good luck! If you would like to talk 
about FORTH, please feel free to call me 


on (07) 2087820. 


continued from Page 5 


143 IFF=OTHEN149 

144 FORI=1TOLEN(G$) 

145 IFMID$(G$,1,1)=" "THEN147 
146 NEXTI 

147 TS=LEFTS$ (G$, I): YS=MID$(G$, I+ 
1) 

148 GS=TS+"("+Y$+")]" 

149 E$="":FORI=ST TO S-1 

150 T$=HEX$ (PEEK (I) ): GOSUB158 
151 ES=E$+T$: NEXTI 

152 J=INSTR(G$," "): IFJ=0 THEN 1 
53 ELSEQ$=MID$ (G$, J+1): GS=LEFTS ¢ 
G$, J) +STRINGS(6-J," ")+Q$ 

153 POKE65494, 0: PRINT#DN, RIGHTS ¢ 
"0000" +HEX$ (PO) ,4);" "; E$; STRING 
$(11-LEN(E$) , 32) ; G$: POKE65495, 0 
154 IFINKEYS=" "THEN10 

155 PO=P0+S-P0 

156 IFS<=E THEN2S5SELSE10 

157 TS=RIGHTS$("0000"+T$, 4): RETUR 
N 

158 TS=RIGHTS (00"+T$, 2): RETURN 
159 RETURN 

160 PRINT" ASCII DUMP” 

161 FORS=S TOE 

162 TS=RIGHTS (" 0000" +HEXS (S) , 4) + 
" "+RIGHTS (''00" +HEX$ (PEEK (S)), 2) 
+"! FCC ” 

163 Q=PEEK(S): [FQ>31 AND Q<128TH 
ENT$=T$+CHR$ (Q) : GOTO166 

164 IFQ>159THENTS=T$+" $80+' "*+CHR 
$ (Q-128) : GOTO166 

165 T$=T$t"??" 

166 POKE65494, 0: PRINT#DN, T$: POKE 
65495, 0: IFINKEY$=" " THEN1OELSENE 
XT: GOTO10 

167 PRINT’ WORD .DUMP” 

168 FORS=S TOE STEP2: T$=RIGHTS (” 
0000" +HEX$ (S),4)+" "+RIGHTS ("000 
0” +HEXS (PEEK (S) ¥256+PEEK (St+1)),4 
+" FDB $"+RIGHTS$("0000" 
+HEXS$ (PEEK (S) &256+PEEK (S+1)), 4) 
169 POKE65494, 0: PRINT#DN, T$: POKE 
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65495, 0: IFINKEY$="" "THEW10ELSENE 
XT: GOTO10 

170 PRINT’ CLOADM PROGRAM’: INPUT” 
PROGRAM NAME”; N$: INPUT” LOADING OQ 
FFSET" ; LO: POKE65494, 0: CLOADMNS, L 
O: POKE65495, 0 

171 S=PEEK (487) X256+PEEK (488): E= 
PEEK (126) &256+PEEK (127)-1: PRINT” 
START ADDRESS=$" ; RIGHTS (" 0000" +H 
EX$(S),4): PRINT" END ADDRESS=$";R 
IGHTS ('° 0000" +HEXS (E) , 4): PRINT” EX 
ECUTE ADDRESS=$" ; RIGHTS (" 0000" +H 
EX$ (PEEK (157) X256+PEEK (158)), 4): 
GOTO10 

172 PRINT" BYTE DUMP” 

173 FORS=S TOE 

174 TS=RIGHTS ("0000 tHEX$ (S) , 4) + 
" "+RIGHTS (’ 00" +HEXS (PEEK (S)) , 2) 
+" FCB $”+RIGHT$("00"+ 
HEX$ (PEEK (S)), 2) 

175 POKE65494, 0: PRINT#DN, T$: POKE 
65495, 0 

176 IFINKEY$=" "THEN10 

177 NEXT 

178 GOTO10 

179 DN=-2: PRINT: GOTO10 

180 DN=0: INPUT’ COLOR"; C$: IFC$="0 
" THENSCREENO, LELSESCREENO 

181 GOTO10 

182 IF(S+T)<OTHENT=65536+T: RETUR 
N 

183 IF (S+T) >65535THENT=T-65536: R 
ETURNELSERETURN 

184 Q=VAL (' &H" +RIGHTS (G$, 2)): WS= 
185 IF(Q AND128)=128THENWS$=" E" 
186 IF(Q AND64)=64THENWS=WS+" F” 
187 IF(Q AND32)=32THENWS=W$ +" H” 
188 IF(Q AND16)=16THENWS=WS+t" I” 
189 IF(Q AND8)=8THENWS=W$+" N” 
190 IF(Q AND4)=4THENWS=WS+"2" 
191 IF(Q AND2)=2THENWS=W$+" Vv” 
192 IF(Q AND1)=1THENWS$=WS$+"'C": G$ 
=G$+"="+V$; RETURNELSEGS=G$+"="+¥ 
$: RETURN 
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193 S$="NEGD ¥XXXXXXKXXCOMD LSRD 
*XXXXRORD ASRD ASLD ROLD DECD * 
XXXXINCD TSTD JMPD CLRD ": RETURN 
194 SS$="XKKKKKXKKKNOPH SYNCHKXKX 
XXXXXKLBRARLBSRRXXXXXDAAH ORCCHX 
*XKKXK----- SEXH EXGM TFRM ": RETURN 
195 SS$="BRAR BRNR BHIR BLSR BHSR 
BLOR BNER BEQR BVCR BVSR BPLR B 
MIR BGER BLTR BGTR BLER ": RETURN 
196 S$="LEAXILEAYILEASILEAUIPSHS 
MPULSMPSHUMPULUMXXXXXRTSH ABXH R 
TIH CWAIHMULH XXXkKxXSVIH ": RETURN 
197 SS=" NEGAHKXXKXKKXKXKCOMAHLSRA 
H*X** KRORAHASRAHASLAHROLAHDECAHX 
**X* I NCAHTSTAHXXXKXCLRAH"” : RETURN 
198 S$=" NEGBHXXXXXKKKKKCOMBHLSRB 
H***X* KRORBHASRBHASLBHROLBHDECBH* 
Xk INCBHTSTBHXXXXXCLRBH” : RETURN 
199 S$="NEGI XXXXXKXKXKCOMI LSR1 
KXXKKRORI ASRI ASLI ROLI DECI xk 
XXKKXINCI TSTI JMPI CLRI ": RETURN 
200 S$="NEGE XXXXKKXKKKCOME LSRE 
*XXKKRORE ASRE ASLE ROLE DECE * 
XXXKINCE TSTE JMPE CLRE ": RETURN 
201 S$="SUBA1LCMPAISBCAISUBD2ANDA 
1BITAILDA1 *XXXXEORA1ADCA1ORA1 A 
DDAICMPX2BSRR LDX2 **xXxkxX": RETUR 
202 S$="SUBA CMPA SBCA SUBD ANDA 
BITA LDA STA EORA ADCA ORA A 
DDA CMPX JSR LDX STX ": RETURN 
203 S$="SUBB CMPB SBCB ADDD ANDB 
BITB LDB STB EORB ADCB ORB A 
DDB LDD STD LDU STU ": RETURN 
204 S$="SUBB1CMPB1SBCB1ADDDZ2ANDB 
IBITBILDB1 *xXXxXXEORB1ADCBIORB1 A 
DDBILDD2 XXkXKLDU2 XXXKK": RETURN 
205 S$="3FHSWI2832CMPD8C2CMPY8E2 
LDY 93DCMPDOCDCMPYQOEDLDY 9FDSTY 
AS3ICMPDACICMPYAEILDY AFISTY B3EC 
MPDBCECMPYBEELDY BFESTY CE2LDS D 
EDLDS DFDSTS EEILDS EFISTS FEELD 
S FFESTS ": RETURN 
206 S$="3F 1ISW13832CMPU8C2CMPS93D 
CMPUSCDCMPSA3 ICMPUACICMPSB3ECMPU 
BCECMPS"” : RETURN 





OS-9 TUTORIAL 


by Jack Fricker 





FRICKER’S 


Before we get too far I had better clear 
up a couple of misprints that occured in 
some of my previous columns, the first 
being the listings to fix the baud rate 
problems (Sept Rainbow). Unfortunately 
both listings were labelled version 1.1 
when in fact they were 1.1 and 1.0 in 
order of printing. 

The next problem that occurred is one 
you should have already picked up. The 
next article (Qct Rainbow) which had a 
Basic0O9 program called Hello also had 


misprints. The article talked about using 
delimiters on a single line when using 
multiple statements using the backslash. 


The problem is that when the listing was 
printed the word processor completely 
ignored the backslashes when time came to 
print it. 


But enough 
what we are here for, 
up! (Watch it! G.) 

This month I am going to present a 
couple of programs of no great worth and 
try to explain how they work. These 
programs duplicate two of the utilities 
that are supplied with OS-9. They are here 
PURELY as examples and not to replace the 
Machine Language programs. 

The first will read a disk ASCII file 
and list it on the screen. It can easily 
be modified to redirect the output to the 


of this, let’s get on with 
this month’s mess 


printer or any other applicable device. 
The explanations will be after the 
listings. 
PROCEDURE BASICO9-LIST 
10 dim filename: stringl 32] 
rem make filemane no more than 32 


characters long. 

dim inpath: byte 

rem make inpath a 1 byte integer 

dim char$: string[ 1000] 

rem make char$ long enough to handle 
1000 bytes. 

print chr$(12) 
of ASCII file to be 


20 input "Name 


listed”, in$ 
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FOLLIES 


30 open #inpath, filename: read 


40 while not eof(#inpath) do 
input (#inpath),char$ 
print char$ 


50 endwhile 
end 


Now we are 
line at a time. 
We have already 


going to look at this one 


covered the Procedure 


statement in previous articles so we will 
look at the second line (10) where we 
introduce another form of the DIM 


statement. We have a different way of 
using DIM than you may be used to with the 
OS-9 format being DIM filename: stringl 32]. 


Just what is this :string[32] about and 
why did we leave the $ out? Firstly as you 
may remember the colon (:) is NOT a 
delimiter as it is in Colour Basic. The 
colon is used in this case to pass. the 
value in the square brackets to the 
variable and to let Basic09 know what type 
of varaible it is. The value may be 
Changed up or down as memory permits. 

The second line has another form of the 
DIM statement, where inpath is defined as 
a BYTE integer variable. An integer 
variable is required where it is used in 
the open and input statements. 

The next line is much the same as the 
first except that this time we have used 
the more conventional naming of a_ string 
by using the dollar sign ($). 

The print CHR$(12) statement will clear 
the screen and home the cursor or it will 
send a form feed to your printer if your 
printer recognises one. 

The INPUT statement is just the same as 
the one you are used to in Basic. 

The OPEN statement comes next and if you 
look at it you will see that is does make 
sense. The inpath variable is the one that 
we earlier defined as an integer. Basic09 
requires that it be an integer and it 
assignes its own value when it runs the 
program. 
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You must let Basic0O9 assign its own 
values instead of doing it yourself which 


is the way Disk Basic does it. OS9 can 
have other files and buffers being opened 
and closed by other users on other 
terminals and may assign them the values 


that you may want to use. 


The next lines (40+) introduce you to 
the Control structure WHILE/DO ENDWHILE. 
This group of statements may be new to 
you. What the while/endwhile loop does is 
check for a condition much the same way as 
the if/then loops that you are used to. 

What while means is that while a 
condition (test) remains true then it will 
do whatever is in the loop and when the 
test fails it will exit the loop much the 
same as the IF/THEN does. OK, so why did I 
use WHILE instead of IF. In this case I 
did it to illustrate the use of "while”! 

I could have used LOOP/ENDLOOP or 
REPEAT/UNTIL control loops to do almost 
the same thing, but I! will leave them 
until another time. 


The next little offering takes the 
program we just looked at and makes it do 
something useful. In this case we are 
duplicating the MERGE command in OS9. This 
program will ask for two input file names 
and one output filename. 


BASICO9 merge 


dim first: stringl 32] 
dim second: stringl 32] 


dim output: stringl 32] 
dim inpath: byte 

dim outpath: byte 

dim char$:stringl 1000] 
print chr$(12) 


input "first filename”, first 
input "second filename”, second 
input "output filename”, output 


open #inpath, first: read 
open #outpath, output: write 


while not (eof (#inpath)) do 
input #inpath, char$ 

write #outpath, char$ 

print char$ 
endwhile 


Close #inpath 
open #inpath, second: read 


while not (eof(#inpath)) do 
input #inpath,char$ 
write #outpath, char$ 
print char$ 

endwhile 


close #inpath 
close #outpath 


end 


As you will have noticed, 
does not use line numbers at 
explained in earlier articles the 
line numbers is optional. 


this program 
all. As 
use of 








Hardware Review 





XPNDR2 and Super Guide — 
an Ideal Expansion Card Set 


The diversity and number of expansion boards available 
for the CoCo never ceases to amaze me. Robotic Micro- 
systems plays a major role in this area with their XPNDR2 
plug-in expansion card. This card measures 7 by 4'4 inches 
and provides traces connected to the CoCo 6809 micro- 
processor via the game or “expansion port,” as I prefer to 
callit. The board 1s very well-made and features gold-plated 
edge connectors and plated through holes. 

A nice addition is a red LED mounted at one corner of 
the board to remind you that CoCo is turned on. It’s also 
a reminder not to unplug the board with the power turned 
on. 

Attached to about the center of the card is a sturdy 40- 
pin edge connector socket suitable to plug in your disk 
controller, voice pack or any other applicable cartridge. The 
controller or cartridge sits vertically, leaving space on either 
side of the connector available for experimental circuits. 


(AN 


The 40-pin socket is mounted with wire-wrap pins so easy 
connection can be made for experimenting. In fact, the 
board is designed to accommodate wire-wrap sockets for 
ease of experimenting. A full 24 square inches of component 
layout space is also available. 

Documentation is complete and detailed. A well- 
illustrated booklet titled “Application Notes” is included. 
This eight-page booklet is geared toward the experimenter 
and especially the beginner with its light touch of technical 
subject matter associated with microcomputer interfacing 
techniques. 

Another item included in the package is called Super 
Guide. This little plastic gadget mounts inside the expansion 
port and contains a‘slot that serves to add support to the 
XPNDR2 card. This is a very helpful accessory to any 
expansion card and is recommended since it prevents stress 
and strain on the expansion connector. It also holds the flap 
door open and its thin slot (4% inch) prevents accidental 
contact with the connector. It does a great job in accom- 
plishing all these tasks and it’s not expensive! 

If you’re into interfacing, you need to look at what 
Robotic Microsystems has to offer. 


— Jerry Semones 
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DIR SORT 


by Ross McKay 





Ross supplied the following 


utility 


written in Basic0O9 which alphabetically 


sorts a directory before lising 


columns. 


in 


Ross is the new meet contact for the 


Carlingford Colour Computer Club and 


can 


be contacted on 02-624-3353, or on Tandy 


Access BBS. 


The Listing: 
PROCEDURE adir 
(¥ Adir vi.1 - courtesy *: --- 


to --- ¥) 


(¥ This is a simple program that opens the specified *) 

(¥ directory file, reads all valid names, and sorts them *) 
(%¥ alphabetically before printing them.) 

(¥ To run the source Cunpacked] program from within BASICO?®) 
(F enter ’run adir("<directoryname>")’ *) 

(¥ Packing the program will remove remarks and long *) 


(¥ variable names. *) 


(¥ Fixed since v1l.O 3: 


¥*) 


(¥ does not truncate filenames to 16 chars %) 


(¥ faster SEEK of third record 


(¥ will not signal error for new 


PARAM direct: STRING 
TYPE xbyte=byti,byt2,byt3:BYTE 
BASE 1 


DIM file(60) -STRING([29] 
DIM Isn:xbyte 

DIM counter: BYTE 

DIM path: BYTE 

DIM x,xx: INTEGER 

DIM m: BYTE 

DIM swap: STRING([( 29] 


OPEN #path, direct: READtDIR 
SEEK #path, 64 


counter:=0 

WHILE NOT(EGF(#path)) DO 
counter:=countertti 

GET #path, file(counter ) 

GET #path,Isn 

IF ASC(Ffiletcounter))=0O THEN 
counter:=counter-1 

ENDIF 

ENDWHILE 

CLOSE #path 
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¥) 


(empty) directory *) 


FOR x:=1 TO counter 

FOR xx:=xt1 TO counter 
IF file(xx)<file(x) THEN 
swap:=file (xx) 
file(xx):=file(x) 
file(x)i=swap 

ENDIF 

NEXT xx 

NEXT 


FOR x«:=1 TO counter 
GOSUB 100 

PRINT file(x), 

NEXT x 

PRINT 

END 


100 FOR xx:=1 TO 29 

mi=ASC (MIDS(file(x),xx,1)) 

EXITIF m>127 THEN 
file(x)!:=LEFTS(file(x),xx-1)+CHRS(m-128) 
ENDEXIT 

NEXT xx 

RETURN 
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Australian RAINBOW 


Copies of back issues can be obtained, subject to the availability of stocks, by using this 
order form and marking Clearly which issues you require to be sent to you. 

Each issue costs $4.50 including postage and packing. Please enclose your cheque/money 
order made payable to: Australian Rainbow Magazine, PO Box 1742, Southport, 4215. 
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Cassette Cases , 10 for s5[_] TAPE $@ 10.00, DISK % 21.95 
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Hardware & Software for your TANDY computer.. 
HARDWARE 








The CoCoConnection: 
Connect your CoCo to the real world and control robots, models, experiments, burglar alarms, water reticulation systems — 
most electrical things. 
Features two MC 6821 PIAs; provides four programmable ports; each port provides eight lines, which can be programmed as 
an input or output; comes complete with tutorial documentation and software; supplied with LED demonstration unit. 
Switchable memory addressing allows use with disk controller or other modules via a multipack interface; plugs into 
Cartridge Slot or Multipack, uses gold plate connectors; a MUST for the hardware designer and debugger! 





$206.00 

Video-Amp: 
Connects simply to your CoCo to drive a Colour or Mono monitor. With instructions $25.00 
With instructions and sound $35.00 


SOFTWARE 


CoCo0z: Each Tape $8.00 
The programs you see lis.ed in Australian CoCo Magazine are available on CoCoOz! p 


, Subscription, 6 months $42.00 

No laborious typing — just (C)LOAD and Go! 12 months $75.00 
NEW for 1986 ONLY Each DISK $10.95 

Subscription on disk, 12 months | $102.50 


Rainbow on Tape: Each T $12.00 
Australian. The programs you see listed in Australian Rainbow Magazine are available on Sub aes 12 th $144.00 
tape. A boon if you don’t understand the language! ubscription, te MONINS ; 
American. We also supply the programs found in American Rainbow on tape. Please | NEW for 1986 ONLY Each DISK $15.00 
specify either Australian or American. Subscription on disk, 12 months | $172.00 


MiCoOz: 
The programs in the MiCo section of Australian CoCo Magazine. (For MC 10 computers | Each Tape 
only) Subscription, 12 months 
Back issues of CoCoOz and MiCoOQz are always available on tape only. 


To be released soon: 
GOLDDISK 1000 — programs from ‘softgold’ for your Tandy 1000 on disk, and, $10.95 
GOLDDISK 4 — programs from ‘softgold’ for your Tandy Model 4! 


The Best of CoCoOz: 
#1... EDUCATION programs. Fourteen programs for the teacher or parent. Per Tape 
#2... Part 1...16K GAMES. (Mainly ECB). Sixteen programs to keep you on your toes! | Per Disk 
Part 2...32K GAMES. Adventures, simulations and arcade games for everyone! 
#3... UTILITIES. Programs to make your use of the computer easier. #3 on Disk 
Spoolers, Reverse Video, Disk utilities and more. 
#4... BUSINESS programs. Invoicing, Accounts, Creditors and more. Any two tapes 
CoCoLink: 
CoCoLink is our Bulletin Board which you can access with any computer if you have a 300 | Subscription to CoCoLink, 12 
baud modem and a suitable terminal program. There is a free visitor's facility, | months 
alternatively membership entitles you to greater access of the many files available. 
We can also be contacted through Minerva (OTC) and Viatel (Telecom). 
Magazines: 
Australian Rainbow Magazine — THE magazine for advanced CoCo users! 
Australian CoCo Magazine — THE magazine for the new user of a Tandy computer. 
Also suits owners of CoCos, MC 10s, Tandy 1000s, 100s, 200s & 2000s. 


Back Issues: 
Australian Rainbow Magazine. (Dec '81 to now.) 
Australian CoCo Magazine. (Aug '84 to now.) 
CoCoBug Magazine. For CoCo — usually 8 programs in each magazine. (Sep '84 to Oct 
"85) 
Australian MiCo Magazine. For Tandy MC 10 computers. (Dec ‘83 to Jul '84) 
Australian GoCo Magazine. For Tandy Model 100 users. (Ju! ‘83 to Jul '84) 
See Subscription Page for further details. 


Books: 

HELP: A quick reference guide for CoCo users. 

FACTS: THE reference for CoCo machine language programmers. 

MiCo HELP: A quick reference for owners of MC 10 computers. 
Othello: by Darryl! Berry 

The board game for your CoCo. Tape 16K ECB 
Say the Wordz: by Oz Wiz & Pixel Software 

Two curriculum based speller programs for your Tandy Speech/Sound Pack. Tape 32K ECB 


Bric a Brac: 
Blank tapes... 12 for $18.00 or $1.70 each. 
Cassette cases... 15 for $5.00. 
Disks ... (they work!) $3.50 each or $28.95 per box of 10. 


HOW TO ORDER 











Option 1: Use the subscription form in this magazine. 

Option 2: Phone and have ready your Bankcard, Mastercard or Visa number. 

Option 3: Leave an order on Viatel, Minerva or CoColink, but be sure to include your Name, Address, Phone Number, Credit 
Card Number and a clear indication of what you require, plus the amount of money you are authorising us to bill you. 
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11 Grantley Avenue 
Rostrevor S.A. 5073 
Phone: (08) 3366588 
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For visual comfor 
ogramming s€ $89.95 
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BACK-UP UTILITY FOR 
YOUR CO-CO!I! 
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